Сортировка по полю в StringGrid

var
  m,I,j,k,p,p1,p2: Integer;
 
begin
if RG1.ItemIndex=0 then
begin
for I := 0 to length(a)-2 do
  begin
m:=ord(copy(stringgrid1.cells[0,i],1,1));
 for j := i+1 to length(a)-1 do
 with stringgrid1 do
  begin
   if ord(copy(cells[0,j],1,1))>m then
    m:=ord(copy(cells[0,j],1,1));
    k:=j;
  end;
 
end;
p1:=ord(copy(stringgrid1.cells[0,i],1,1));
p2:=ord(copy(stringgrid1.cells[0,k],1,1));
 
p:= ord(copy(stringgrid1.cells[0,i],1,1));
p1:=p2;
p2:=p;
end;

procedure TForm1.Button1Click(Sender: TObject);
var L: TStringList;
    i, k, Column: integer;
begin
 Column := RadioGroup1.ItemIndex;
 if Column = -1 then Exit;
 L := TStringList.Create;
 k := StringGrid1.FixedRows;
 for i := k to StringGrid1.RowCount - 1 do
   L.Add(Format('%s=%s', [StringGrid1.Cells[Column, i], StringGrid1.Rows[i].CommaText]));
 L.Sort;
 for i := 0 to L.Count - 1 do
  StringGrid1.Rows[i + k].CommaText := L.ValueFromIndex[i];
end;