Bubblesort + Zeitstoppung

[de_vine]

Hallo habe ein Delphi projkt soll noch ZEITSTOPPUNG einbauen.
BITTE UM HILFE!

BUBBLESORT:

var
Form1: TForm1;
Z:ARRAY[1..1000]OF INTEGER;
I,E,D,HILF:INTEGER;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
E:=STRTOINT(Edit1.Text);
Memo1.Text:='';
Memo2.Text:='';

I:=1;
REPEAT
BEGIN Z[I]:=Random(100);
I:=I+1;
END;
UNTIL I=E+1;

I:=1;
REPEAT
BEGIN
Memo1.Lines.Add(inttostr(Z[I]));
I:=I+1;
END;
UNTIL I=E+1;

D:=E;
REPEAT
BEGIN
I:=1;
REPEAT
BEGIN
IF Z[I]>Z[I+1] THEN
BEGIN HILF:=Z[I];
Z[I]:=Z[I+1];
Z[I+1]:=HILF;
END;
I:=I+1;
END;
UNTIL I=D;
D:=D-1
END;
UNTIL D=1;

i:=1;
Repeat
Begin
Memo2.Lines.Add(inttostr(Z[i]));
i:=i+1;
End;
UNTIL I=E+1;


end;

end.

Das ist ein lauffähiges Bubblesort soll noch stoppung einbauen.
und zwar so ungefähr:

Infos zur Zeitstoppung in DELPHI

procedure TForm1.Button1Click(Sender: TObject); 16.10.2008
var z: Array of Integer;
var i,h,e: Integer;
zeitpunkt1, zeitpunkt2, Dauer : real; // in Tagen!!!
begin
. . .
zeitpunkt1:=time;

// der eigentliche Sortiervorgang

Zeitpunkt2:=time;
dauer:= (zeitpunkt2-zeitpunkt1)*24*3600; // in s
edit2.Text:=floattostr(dauer);
. . .
end;



muss das 2te iwie in das erste einbauen
danke im voraus!