ComboBox, фиксирование ячейки (Delphi)

[Максим_83]

Всем привет. Есть на форме ComboBox с выпадающим списком для сортировки данных в StringGrid.
К нему привязана кнопка которая по выбранной строке в ComboBox фильтрует данные.
Возникает одна проблема когда нажимаю кнопку, то строка в ComboBox переходит сразу на первую и фильтрация по выбранной строке (к примеру третья выбрана) не происходит, фильтрует по первой.
Как можно сделать чтобы выбранная строка в ComboBox после её выбора фиксировалась, и не перескакивала на первую?

[Аватар]

Покажите код OnClick кнопки

[Максим_83]

procedure TForm1.BitBtn5Click(Sender: TObject);
var SortColumn, i, j, k : integer;
  sTemp : string;
begin
  TrimWorkingSet;
  ComboBox1.ItemIndex:=0;
  SortColumn:=Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
  for i:=StringGrid1.FixedRows to StringGrid1.RowCount-2 do
    for j:=i+1 to StringGrid1.RowCount-1 do
      if StrToIntDef(StringGrid1.Cells[SortColumn,i],-1) <
               StrToIntDef(StringGrid1.Cells[SortColumn,j],-1) then
        for k:=StringGrid1.FixedCols to StringGrid1.ColCount-1 do
          begin
            sTemp := StringGrid1.Cells[k,i];
            StringGrid1.Cells[k,i] := StringGrid1.Cells[k,j];
            StringGrid1.Cells[k,j] := sTemp;
          TrimWorkingSet;
          end;
end

Вот код кнопки которая делает сортировку

[Аватар]

ComboBox1.ItemIndex:=0;
Это зачем? Эта строка и делает своё нехилое дело

[Максим_83]

Сообщение от Аватар

ComboBox1.ItemIndex:=0;
Это зачем? Эта строка и делает своё нехилое дело

Сори тупанул слегка. Не туда это записал. Перекинул на FormCreate.
Эта часть кода как заглушка работает, иначе при нажатии на кнопку вылетает ошибка если не сделать выбор.

[Hacker19_90]

Эта часть кода как заглушка работает, иначе при нажатии на кнопку вылетает ошибка если не сделать выбор.

Так ведь проверять, для этого надо, на предмет выбрано или нет!