procedure TForm1.Button1Click(Sender: TObject);
var
Aranacak:String;
Str:String;
Kolon, satir:integer;
begin
Aranacak:=inputBox('Bulunacak String', 'Aranacak',");
For satir:= 0 To StringGrid1.RowCount -1 Do
Begin
For kolon:= 0 To StringGrid1.ColCount -1 Do
Begin
Str:=stringgrid1.Cells[kolon,satir];
if Aranacak = Str Then
Begin
ShowMessage('Bulundu');
StringGrid1.Row := Satir;
StringGrid1.Col := Kolon;
Break;
End;

End;
End;
end;