Uhrzeit unabhängig von Systemzeit laufen lassen

[dopeline]

Es klappt!

Delphi-Quellcode:

var Ti,Ts,Td:TDateTime;

procedure TForm1.AktualisierenClick(Sender: TObject);
begin
 IdTime1.Host:='ntps1-0.cs.tu-berlin.de';
 Ti:=IdTime1.DateTime;
 IdTime1.Disconnect;
 Td := Ts - Ti;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ts:=now;
Label1.Caption:=TimeToStr(Ts - Td);
end;

Gruß, dopeline