Проблемка с сортировкой stringgrid

[grafgrial]

В этом кодике идет сортировка, но единственная проблема пустые строки он ставит в начале StringGrid, а нужно чтобы были в конце или вообще удалялись. как сделать?

procedure SortStringGrid(var GenStrGrid: TStringGrid; ThatCol: Integer);
 const
  TheSeparator = '@';
 var
   CountItem, I, J, K, ThePosition: integer;
   MyList: TStringList;
   MyString, TempString: string;
 begin
   CountItem := GenStrGrid.RowCount;
   MyList:= TStringList.Create;
   MyList.Sorted := False;
   try
     begin
       for I := 1 to (CountItem - 1) do
         MyList.Add(GenStrGrid.Rows[i].Strings[ThatCol] + TheSeparator +
           GenStrGrid.Rows[i].Text);
      Mylist.Sort;
       for K := 1 to Mylist.Count do
       begin
        MyString := MyList.Strings[(K - 1)];
        ThePosition := Pos(TheSeparator, MyString);
         TempString  := '';
         TempString := Copy(MyString, (ThePosition + 1), Length(MyString));
         MyList.Strings[(K - 1)] := '';
         MyList.Strings[(K - 1)] := TempString;
       end;
      for J := 1 to (CountItem - 1) do
         GenStrGrid.Rows[J].Text := MyList.Strings[(J - 1)];
     end;
   finally
    MyList.Free;
   end;
 end;

[artemavd]

Вот так можно удалить пустые строки:

type
 THackGrid = class(TStringGrid);

....

var
 row: integer;
begin
 for row:=0 to MainForm.StringGrid1.RowCount - 1 do
 begin
  if Trim(StringGrid1.Rows[row].Text) = '' then
     THackGrid(StringGrid1).DeleteRow(row);
 end;
end;

[grafgrial]

Теперь появилась проблема когда удаляется строка, прыгает в конец списка, нужно хотя бы на 1 строку больше...

[artemavd]

Не понял что-то...В смысле, что после удаления пустых строк нужно, чтобы добавлялась одна пустая строка? Тогда попробуйте так:

StringGrid1.RowCount:=StringGrid1.RowCount + 1;

[grafgrial]

нет, когда удаляешь например вначале стринггрида строку, выделяется последняя строка, а нужно чтобы выделялась следующая строка после той удаленной