jak ustawić kursorna celce w StringGrid-dzie

wyszukuje tekst procedurką:
procedure TForm1.Button3Click(Sender: TObject);
var x, y :integer;
begin
for x:=0 to sg1.ColCount do
for y:=0 to sg1.RowCount do
if Pos(esz.Text, sg1.Cells[x, y]) > 0 then begin
showmessage('OKI');
end;
end;

ale ak zrobić, żeby kursor ustawił się na tej celce

StringGrid1.Row:=x;
StringGrid1.Col:=y;

zeby sie komorka zaznaczyla, czy zeby ustawilo na niej kurosr myszy...??

Zeby sie komórka zaznaczyła

OKejos działa
Fenks