كيف أستعمل حدث MouseMove مع StringGrid

[karikaaaa 2]

بسم الله الرحمن الرحيم

أريد مثلاّ عند تحريك الفارة يعطى رقم الخلية(Cells) من StringGrid الى edit1.text

[PLANSHARP 0]

السلام عليكم

جرب

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  acol, arow: Integer;
  P: Tpoint;
begin
  P.X := X;
  P.Y := Y;
  StringGrid1.MouseToCell(X, Y, acol, arow);
  Edit1.Text := format('%d %d', [acol, arow]);
end;

و فقكم الله.