[RusMaXXX]

вот фрагмент кода:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  S : TStrings;
  St : String;
  i, Row, Col : Integer;
begin
  //Индекс столбца, в котром будем проводить поиск.
  Col := 0;
 
  St := AnsiUpperCase( '<Искомый шаблон>' );
  S := StringGrid1.Cols[Col];
  Row := -1;
  for i := StringGrid1.FixedCols to S.Count - 1 do begin
    if Pos( St, AnsiUpperCase( S.Strings[i] ) ) > 0 then begin
      Row := i;
      Break;
    end;
  end;
 
  if Row > -1 then begin
    //Делаем так, чтобы найденная строка оказалась верхней видимой строкой.
    StringGrid1.TopRow := Row;
    //Выделяем найденную ячейку.
    StringGrid1.Selection := TGridRect( Rect(Col, Row, Col, Row) );
 
    ShowMessage('Шаблон найден в строке с индексом: ' + IntToStr(Row));
  end else begin
    ShowMessage('Шаблон не найден.');
  end;
end;