Delphi-Quellcode:
...
Start : TTime;
...
procedure TForm1.TimerTimer(Sender: TObject);
begin
LabelTime.Caption := FormatDateTime('nn"::"ss"::"zzz',Now-Start);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Start := Now;
end;
Würde auch gehen, ob genau, weiss ich nicht.