Zeit in Label wiedergeben

[Wormid]

Will auch ne Lösung posten:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var h, m, s, msec: Word;
begin
  if Timer1.Tag = 0 then Timer1.Tag := GetTickCount;
  DecodeTime(((Timer1.Tag - GetTickCount) / MSecsPerDay), h, m, s, msec);
  msec := msec div 10;
  Label1.Caption := Format('%.2d:%.2d:%.2d', [m, s, msec]);
end;