Поиск в Stringgrid и вывод определенного столбца

var
  i: Integer;
begin
  //заполняем таблицу любым способом
  StringGrid1.Cols[0].Add('Рабочие');
  StringGrid1.Cols[0].Add('1');
  StringGrid1.Cols[0].Add('2');
  StringGrid1.Cols[0].Add('3');
  StringGrid1.Cols[0].Add('4');
 
  StringGrid1.Cols[1].Add('Фамилия');
  StringGrid1.Cols[1].Add('Иванов');
  StringGrid1.Cols[1].Add('Петров');
  StringGrid1.Cols[1].Add('Сидоров');
  StringGrid1.Cols[1].Add('Андреев');
 
  StringGrid1.Cols[2].Add('Стаж');
  StringGrid1.Cols[2].Add('3');
  StringGrid1.Cols[2].Add('15');
  StringGrid1.Cols[2].Add('25');
  StringGrid1.Cols[2].Add('8');
 
  StringGrid1.Cols[3].Add('Разряд');
  StringGrid1.Cols[3].Add('3');
  StringGrid1.Cols[3].Add('1');
  StringGrid1.Cols[3].Add('4');
  StringGrid1.Cols[3].Add('2');
 
    for i := 1 to StringGrid1.RowCount-1 do
  begin
    //делаем наше условие- ФИО работников чей стаж более 10 лет и разряд не выше 3-его
    if (StrToInt(StringGrid1.Cells[2, i]) > 10) and  (StrToInt(StringGrid1.Cells[3, i]) < 3) then
    begin
      ListBox1.Items.Add(StringGrid1.Cells[1, i]+' стаж =  '+ StringGrid1.Cells[2, i] + ' разряд = ' + StringGrid1.Cells[3, i]);
    end;
  end;

StrToInt(StringGrid1.Cells[1, 1])