// prosedur merubah tanggal sistem
procedure TForm1.mySetDate(vDateTime: TDateTime);
var
  NewDateTime: TSystemTime;
begin
  FillChar(NewDateTime, SizeOf(NewDateTime),#0);
  DateTimeToSystemTime(vDateTime, NewDateTime);
  SetLocalTime(NewDateTime);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
   dTgl :TDateTime;
begin
  try
    // dapatkan jam dan tanggal server menggunakan query
    with ADOQuery1 do begin
      Close;
      SQL.Clear;
      SQL.Append('SELECT GETDATE()');
      Open;
      dTgl := Fields[0].AsDateTime;
      Close;
    end;
    // set tanggal dan jam lokal
    mySetDate(dTgl);
  except
    on e: Exception do 
      ShowMessage(e.ClassName +#10#13+ e.Message);
  end;
end;