Bubblesort

[flac]

Hallo!
Ich habe da ein kleines Problem..
Kann mir bitte jemand helfen meinen Fehler im Quellcode zu finden, da ich schon seit zwei Tagen daran sitze und alles mögliche ausprobiert habe. Ich bedanke mich schonmal für jede Hilfestellung.

Delphi-Quellcode:

var
  Form1: TForm1;
  i,j,Merke:  Integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;

procedure TForm1.Close_BitBtnClick(Sender: TObject);
begin
  close;
end;

const n=100;
Bereich=1000;

procedure TForm1.Sortieren_BitBtnClick(Sender: TObject);
var  Zahl: Array[1..10] of Integer;
begin
  for i:=n-1 downto 1 do
    for j:=1 to i do
      if Zahl[j]> Zahl[j+1] then
        begin
          Merke:=Zahl[j];
          Zahl[j]:=Zahl[j+1];
          Zahl[j+1]:=Merke;
        end;
end;

procedure TForm1.Zufallszahl_BitBtnClick(Sender: TObject);
var Zahl: Array[1..10]of Integer;
begin
  for i := 1 to 10 do
    begin
      ListBox1.Items[i]:= IntToStr(Random(1000)+1);
      Zahl[i]:=StrToInt(ListBox1.Items[i]);
    end;
end;

end.

[edit=Matze][delphi]-Tag repariert. Mfg, Matze[/edit]