StringGrid - sortowanie komórek nazwiskami

Witam to jest przykład sortowania stringgrida według nazwisk w jednej z kolumn.

procedure TForm1.RadioButton16Click(Sender: TObject);
var
i,j : integer;
begin
StringGrid1.RowCount:=koniec+1;

For J:=1 To koniec-2 Do // normalnie jest -1 ale ja dodałem pomocniczą na koniec
  For I:=1 To koniec-2 Do
    If StringGrid1.cells[1,i]>StringGrid1.cells[1,i+1] Then
      Begin
        StringGrid1.Rows[koniec+1]:=StringGrid1.Rows[i];
        StringGrid1.Rows[i]:=StringGrid1.Rows[i+1];
        StringGrid1.Rows[i+1]:=StringGrid1.Rows[koniec+1];
       End;

StringGrid1.RowCount:=koniec;
//Przykład sortowania
{
For J:=1 To n-1 Do
  For I:=1 To n-1 Do
    If Tab[I]>Tab[I+1] Then
      Begin
        Pom:=Tab[I];
        Tab[I]:=Tab[I+1];
        Tab[I+1]:=Pom;
      End;
} end;