procedure TSetPanelTime.Button1Click(Sender: TObject);
var
  Str   :String;
begin
  Str:=FormatDateTime('mmmm d yyyy hh:mm:ss',Now);
  SiteSendCommand(SiteCurrentGet,'Date = StrToDate("' + Str + '")','Setting Panel DateTime');
end;