ich kenne die Indys nicht, deshalb wird der Code eher symbolisch:
im Form:
Delphi-Quellcode:
[..]
Private
_TimeDelta : TDateTime;
[..]
bei Programmstart:
Delphi-Quellcode:
[..]
Var
InternetTime : TDateTime;
[..]
Begin
[..]
InternetTime:=
{Indy-Get-Time}
_TimeDelta:=Now() - InternetTime;
[..]
im Timer zur Aktualisierung des Labels:
Delphi-Quellcode:
[..]
MyLabel.Caption:=TimeToStr(Now() - _TimeDelta);
[..]