TStringGrid - наведение мыши на строку

[fezilk25]

Необходимо при наведении курсора на определенную строку изменять текст в ней. События OnHover нет, т.е. нужно обрабатывать событие OnMouseEnter, но как по координатам определить строку TStringGrid ?

[BDA]

var
  ac,ar:integer;

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  stringgrid1.MouseToCell(x,y,ac,ar);
  caption:=inttostr(ac)+' '+inttostr(ar);
end;

ar равен строке, на которую указывает мышь или -1, если мышь указывает не на клетку.

[fezilk25]

спасибо большое