Dauer einer Schleife in Sek. messen?

[Borschti]

Hallo,

Ich möchte die Dauer einer Schleife in Sekunden messen, dazu speicher Ich die aktuelle Zeit vor dem Schleifeneintritt in eine Variable vom Typ TDateTime Time1 := Time; und nach dem die Schleife vorbei ist, wird wieder die derzeitige Zeit in einer Variable vom gleichen Typ gespeichert, Time2 := Time; .
Danach will ich die Differenz der beiden Zeiten mir der folgenden Funktion ermitteln:

Delphi-Quellcode:

function DateTimeDiff(date1, date2: TDateTime): string;
 var secs: integer;
     difference: real;
begin
 difference:=date2-date1;
 difference:=Frac(difference)*60;
 secs:=round(difference-Frac(difference));
 result:=IntToStr(secs)+' Sekunden';
end;

Habe mir die Funktion von Delphitreff kopiert und wenig bearbeitet weil Ich nur die Sekunden haben möchte.

Also mein Problem ist jetzt, dass mir nur Null ausgegeben wird, habe auch versucht mit sleep() die Schleife künstlich in die Länge zu ziehn aber mir wird trotzdem nur Null zurückgegeben.
Vielleicht kennt ja jemand eine bessere Funktion um die Differenz zu berechnen oder vielleicht hab ich mir auch einen Fehler in die Funktion eingebaut als Ich sie bearbeitet habe. oder man kann einfach nicht die Zeit zwischen Schleifenein- und austritt messen...

Viel zu viele mödliche Probleme

mfg
Alex