[YVitaliy]

??? Так это твой код, просто переделанный
мой код вот:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var rc,cc:integer;
    s:string;
    b:boolean;
begin
b:=true;
  repeat
  b:=false;
    for rc:=0 to StringGrid1.RowCount-2 do begin
      for cc:=0 to StringGrid1.ColCount-1 do begin
      if  (StringGrid1.Cells[cc,rc]>StringGrid1.Cells[cc,rc+1]) and (StringGrid1.Cells[cc,rc+1]<>'') then
        begin
          b:=true;
          s:=StringGrid1.Cells[cc,rc];
          StringGrid1.Cells[cc,rc]:=StringGrid1.Cells[cc,rc+1];
          StringGrid1.Cells[cc,rc+1]:=s;
        end;
      end;
    end;
  until b=false;
end;

Стандартная сортировка пузырьком