StringGrid и сортировка

[dee_lv]

Написал вот такую процедуру сортировки StringGrid по столбцу по возрастанию:

procedure Sort_Col_Max(StringGrid1:TStringGrid; var col:integer);
var
  i,j: integer;
begin
 with StringGrid1 do
 begin

  for j:=2 to RowCount-1 do
  begin
    for i:=1 to RowCount-j do
    begin
      if Cells[col,i]>Cells[col,i+1] then
      begin
        Rows[RowCount+1]:=Rows[i+1];
        Rows[i+1]:=Rows[i];
        Rows[i]:=Rows[RowCount+1];
      end;
    end;
  end;

 end;
end;

Проблема вот в чём:
Если повесить этот же код просто на кнопку, и в строке

if Cells[col,i]>Cells[col,i+1] then

вместо col ввести номер столбца, по которому будет выполняться сортировка, то всё работает как надо. А если я использую код как самостоятельную процедуру, и значение col у меня задаётся из Edit, то сортировка идёт почему-то только по первому столбцу и всё.

Например, вот так:

var
  c: integer;
begin
  c:=StrToInt(Edit1.Text);
  Sort_Col_Max(StrGrd, c);
end;

[eoln]

Поменяй имя переменной COL - оно совпадает с одним из свойств компонента TStringGrig или не надо использовать WITH, а везде указывать имя компонента.
Но лучше и легче всё-таки поменять имя

[eoln]

Стоп! Вообще код неправильный

[dee_lv]

Сообщение от eoln

Поменяй имя переменной COL - оно совпадает с одним из свойств компонента TStringGrig или не надо использовать WITH, а везде указывать имя компонента.
Но лучше и легче всё-таки поменять имя

Поменял имя переменной - помогло. Спасибо, всё заработало.

[dee_lv]

Теперь такой вопрос:
Сортировку по алфавиту реализовал, теперь необходимо сделать фильтр, например, по первой колонке. Решил попробовать с использованием TStringList:

var
  Str: TStringList;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
begin
  Str:=TStringList.Create;
  with StringGrid1 do
  begin
    for i:=0 to StringGrid1.RowCount do
    for j:=0 to StringGrid1.ColCount do
      begin
        if Cells[0,j]='г. Москва' then begin
        Str.Add(StringGrid1.Cells[i,j]); end;
      end;
  end;
end;

Затем вывожу в Мемо:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to Str.Count-1 do
    begin
      Memo1.Lines.Add(Str[i]);
    end;
end;

Вроде всё фильтруется. Но как затем список строк передать в StringGrid? У меня в компоненте несколько колонок, а строки в TStringGrid идут подряд.

[dee_lv]

Тему можно закрыть.