Sortieren von Zufallszahlen im Stringgrid

[Grishnak]

So müsste es funktionieren:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  help: string;
  i, j: integer;
  noXChange: boolean;
begin
  (* alle "Zahlen" aus Spalte #1 in Spalte #2 kopieren *)
  StringGrid1.Cols[2].Text:=StringGrid1.Cols[1].Text;

  (* Bubblesort *)
  repeat
    (* noch keine Vertauschung *)
    noXChange:=true;
    (* Reihen 1 bis 100 sortieren *)
    for i:=1 to 99 do 
      if StrToInt(StringGrid1.Cells[2, i]) > StrToInt(StringGrid1.Cells[2, i+1])
        then
          begin
            (* Tauschen *)
            help:=StringGrid1.Cells[2, i];
            StringGrid1.Cells[2, i]:=StringGrid1.Cells[2, i+1];
            StringGrid1.Cells[2, i+1]:=help;
            (* Vertauschung hat stattgefunden *)
            noXChange:=false;
          end;
  until noXChange;
end;