Benötigte Zeit messen

[FriFra]

Delphi-Quellcode:

var
  StartTime: TDateTime;
  Duration: TDateTime;
begin
  StartTime := Now;

  { Dein Code }

  Duration := Now - StartTime;
  Form1.LabelHH.Caption := FormatDateTime('hh', Duration);
  Form1.LabelMM.Caption := FormatDateTime('nn', Duration);
  Form1.LabelSS.Caption := FormatDateTime('ss', Duration);
end;