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

السلام عليكم

جرب

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;

و فقكم الله.