ok... Hab eine Lösung, die sogar auf die Milisekunde genau ist...
Delphi-Quellcode:
var
Form1: TForm1;
starttime: TTimeStamp;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
starttime := DateTimeToTimeStamp(now);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
TimeStamp: TTimeStamp;
begin
TimeStamp := DateTimeToTimeStamp(now);
label1.Caption := inttostr((TimeStamp.Date - starttime.Date)*24*60*60*1000 + TimeStamp.Time - starttime.Time);
end;