Die Zeit stoppen ohne Gettickcount

[whiteshark]

Ein bisschen Quelltext:

Delphi-Quellcode:

procedure TForm1.InsertButtonClick(Sender: TObject);
var a:array of integer;
var voninsert, bisinsert:cardinal;
begin
laenge:=memo1.lines.count;
setlength(a,laenge);
ein(a);
voninsert:=GetTickCount;
insert(a);
bisinsert:=GetTickCount;
aus(a);
summe:=bisinsert-voninsert;
InsertLabel.Caption:='';
if (summe>1000) then InsertLabel.Caption:=floattostr(summe/1000)+' s'
                else InsertLabel.Caption:=floattostr(summe)+' ms';

In diesem Programm soll der Sortieralgorithmus "Insert-Sort" aufgerufen werden.
1) Zahlen einlesen mit der Funktion "ein(a)"
2) Zeit nehmen
3) Sortieren mit der Funktion "insert(a)"
4) Zeit nehmen
5) Zahlen ausgeben mit der Funktion
6) Differenz aus zweiter Zeit und erster Zeit

Aber wo soll der Fehler sein?