"tickende" uhr mit nur einer zeitmessung

[Nachteule]

ganz ohne timer und supereinfach:

Delphi-Quellcode:

var
    startzeit, stopzeit: TTime;

begin
  startzeit := now;
  // irgendetwas ausführen

  stopzeit := now;

  StatusBar1.Panels[1].Text := formatdatetime('hh:nn:ss:zzz', (stopzeit -
    startzeit)); 

end;