[lmikle]

Что значит "существует строка"?

Если наличие какой-то строки в одной из ячеек, то просто перебираем все ячейки в гриде и каждую проверяем, типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var   S : String;   iCol, iRow : Integer;   Flag : Boolean; begin   S := 'string to find';   Flag := False;   For iCol := 0 To StringGrid1.ColCount-1 Do     For iRow := 0 To StringGrid.RowCount-1 Do       Begin         Flag := Pos(S,StringGrid1.Cells[iCol,iRow) > 0;         If Flag Then Break; // Ну что бы не перебирать остаток, если уже нашли       End   If Flag Then ShowMesage('Found') Else ShowMessage('Not found');