1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

//------------------------------------------------------------------------------
function GetAtomTime(): TDateTime;
//------------------------------------------------------------------------------
var
  Start: Int64;
begin
  //result := Now();
  //FMain.ClientSocket1.Host := 'time.windows.com';
  //FMain.ClientSocket1.Port := 37;

  FMain.ClientSocket1.Host := 'time-a.nist.gov';
  FMain.ClientSocket1.Port := 13;
  FMain.ClientSocket1.Active := true;
  //FMain.ClientSocket1.Open();

  Start := QPJetzt();
  while FMain.stOnRead = '' do
  begin
    Application.ProcessMessages;
    if IsTimeOver(Start, 5 * QPSec) then
    begin
      FMain.stOnRead := '0';
      break;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TNetTimeSync.SyncTime;
var P1: PChar;
    P2: PChar;
    R : Integer;
begin
  GetMem(P1, 100);
  GetMem(P2, 50);
  P1 := StrPCopy(P1, 'TIME ' + TServer + ' /SET /YES');
  P2 := StrPCopy(P2, TPath);

  R := ShellExecute(0, NIL, 'NET.EXE', P1, P2, SW_SHOWMINNOACTIVE);
  if (R <= 32) then
  begin
    MessageBeep(MB_ICONEXCLAMATION);
    P1 := StrPCopy(P1, 'Timesync errorcode: ' + IntToStr(R));
    MessageBox(0, P1, 'Timesync error', MB_OK + MB_ICONEXCLAMATION);
  end;
  FreeMem(P1, 100);
  FreeMem(P2, 50);
  if (csDesigning in ComponentState) then Exit;
  if (Assigned(FSync)) then FSync(Self);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.ButtonClick(Sender: TObject);
var
  AtomZeit: String;
begin
  IdDayTime1.Host := 'ptbtime1.ptb.de';
  AtomZeit := IdDayTime1.DayTimeStr;
  IdTime1.SyncTime;
  IdTime1.Disconnect;
  try
     Label1.Caption := AtomZeit;
  except
    ShowMessage('Fehler beim Lesen des Zeit-Servers ');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

//------------------------------------------------------------------------------
function GetAtomTime(): TDateTime;
//------------------------------------------------------------------------------
var
  //IdDayTime: TIdDayTime;
  //st: String;
  IdSNTP: TIdSNTP;
begin
  (*
  IdDayTime := TIdDayTime.Create(Nil);
  IdDayTime.Host := 'ptbtime1.ptb.de';
  st := IdDayTime.DayTimeStr; // hier knallts: Socket Error 10060
  //IdDayTime.SyncTime; // ggf. lokale Uhr synchronisieren
  IdDayTime.Disconnect();
  FreeAndNil(IdDayTime);
  Result := GetDateTimeFromText(st, '');
  *)
  IdSNTP := TIdSNTP.Create(Nil);
  IdSNTP.Host := 'ptbtime1.ptb.de'; // time-a.nist.gov, pool.ntp.org, time.windows.com, ptbtime1.ptb.de, pool.ntp.org, time.uni-bonn.de
  result := IdSNTP.DateTime;
  FreeAndNil(IdSNTP);
end;