Værdier fra listbox ind i array

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var i, tempint : integer;
    bubble : boolean;

    begin
    repeat begin
      bubble := false;
      for I := 1 to listbox1.GetCount do
        if listbox1.Items[i] > listbox1.Items[i+1] then begin
          tempint := strtoint(listbox1.Items[i]);
          listbox1.Items[i] := listbox1.Items[i+1];
          listbox1.Items[i+1] := inttostr(tempint);
          bubble := true;
        end;

         end



    until bubble = false;



 end;