Sortieren von Zufallszahlen im Stringgrid

[Technikus]

Hallo marabu,
jetzt habe ich gesehen, und geändert.
Ich bemühe mich um Besserung und weniger Schlamperei.

Delphi-Quellcode:

procedure TForm1.Button2_BubblesortClick(Sender: TObject);
var
j, ende, i, Merke: integer;
begin
  ende := 5;
  with StringGrid1 do
  begin
    for i := ende-1 downto 1 do
      for j := 1 to i do
      begin
        if Stringgrid1.Cells[2, j+1] > StringGrid1.Cells[2, j+2] then
        begin
          Merke := StrToInt(StringGrid1.Cells[2, j]);
          Stringgrid1.Cells[2, j+1] := StringGrid1.Cells[2, j+2];
          StringGrid1.Cells[2, j+2] := IntToStr(Merke);
        end;
        StringGrid1.Cells[2, j+1] := (StringGrid1.Cells[2, j+2]);
      end
  end;
  
end;

Funktionieren will es aber trotzdem nicht.

Wie kann ich die sortierte Ausgabe so hinbekommen, dass die sortierten Ergebnisse in die 3. Spalte erscheinen?

Gruß Technikus