Сортировка по алфавиту StringGrid

procedure TForm1.BitBtn4Click(Sender: TObject);
 var
i, j: Integer;
lTmpStr: string; 
begin 
for i := 0 to StringGrid1.RowCount - 1 do 
begin 
for j := i + 1 to StringGrid1.RowCount - 1 do 
if StringGrid1.Cells[0, i] > StringGrid1.Cells[0, j] then 
begin 
lTmpStr := StringGrid1.Cells[0, i]; 
StringGrid1.Cells[0, i] := StringGrid1.Cells[0, j];
StringGrid1.Cells[0, j] := lTmpStr;
end; 
end; 
end;

//Сортировка строк таблицы по значениям ячеек в столбце с заданным индексом.
//Сортировка производится в алфавитном порядке и по цифрам: 0..9
//- согласно кодировочной таблице.
//Фиксированные строки сортировке не подвергаются.
procedure SgSort(aSg : TStringGrid; const aCol : Integer);
var
  SlSort, SlRow : TStringList;
  i, j : Integer;
begin
  //Сортируемый список.
  SlSort := TStringList.Create;
 
  //Добавляем в сортируемый список пары: "строка - объект".
  //В качестве строки будем записывать значения ячеек того
  //столбца, по которому надо провести сортировку. Будем брать те ячейки, которые
  //не принадлежат фиксированным строкам - чтобы не подвергнуть сортировке
  //шапку таблицы, если она есть.
  //А в качестве объекта будем присоединять копии соответствующих строк таблицы.
  for i := aSg.FixedRows to aSg.RowCount - 1 do begin
    //Создаём контейнер для копии строки таблицы.
    SlRow := TStringList.Create;
    //Копируем строку таблицы в контейнер.
    SlRow.Assign(aSg.Rows[i]);
    //Добавляем в сортируемый список пару:
    //строка: строка из ячейки целевого столбца;
    //объект: контейнер, содержащий копию строки таблицы.
    SlSort.AddObject(aSg.Cells[aCol, i], SlRow);
  end;
 
  //Сортируем столбец.
  SlSort.Sort;
 
  //Возвращаем в таблицу строки, отсортированные по столбцу с номером aCol.
  j := 0;
  for i := aSg.FixedRows to aSg.RowCount - 1 do begin
    //Берём очередной контейнер.
    SlRow := Pointer(SlSort.Objects[j]);
    //Записываем содержимое контейнера в строку таблицы.
    aSg.Rows[i].Assign(SlRow);
    //Уничтожаем контейнер.
    SlRow.Free;
    //Следующий индекс списка.
    Inc(j);
  end;
 
  //Уничтожаем сортируемый список.
  FreeAndNil(SlSort);
end;
 
//Пример использования.
procedure TForm1.Button1Click(Sender: TObject);
begin
  //В Edit1.Text записан индекс столбца таблицы, по которому
  //требуется выполнить сортировку.
  SgSort( StringGrid1, StrToIntDef( Edit1.Text, 0 ) );
end;

//Сортировка строк таблицы по значениям ячеек в столбце с заданным индексом.
//Сортировка производится в алфавитном порядке и по цифрам: 0..9
//- согласно кодировочной таблице.
//Фиксированные строки сортировке не подвергаются.
procedure SgSort(aSg : TStringGrid; const aCol : Integer);