pesquisando consegui desenvolver
procedure TForm1.Button1Click(Sender: TObject);
var
Selecao: TGridRect;
x,y:integer;
begin
For X:=0 to stringgrid1.rowcount-1 do
if edit1.text = StringGrid1.Cells[6,x ] then
begin
Selecao.Left:= 6; // coluna inicial
Selecao.Right:= 6; // coluna final
Selecao.Top:= x; // linha inicial
Selecao.Bottom:= x; // linha final
StringGrid1.Selection:= Selecao; end;
end;