OnMouseEnter/-Over/-Leave für beliebige Komponente?

[MCXSC]

Ja, ich habe ja folgendes getestet:

Delphi-Quellcode:

private
    { Private-Deklarationen }
    ControlOnMousePos: TControl;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  public
    { Public-Deklarationen }
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.CMMouseEnter(var Message: TMessage);
var
  ptWork: TPoint;
begin
  GetCursorPos(ptWork);
  ControlOnMousePos := FindDragTarget(ptWork, TRUE);
  if Assigned(ControlOnMousePos) then
  begin
    Label1.Caption := ControlOnMousePos.Name;
  end;
end;

procedure TDemoForm.CMMouseLeave(var Message: TMessage);
begin
  ControlOnMousePos := NIL;
end;

Hier sagt mir Delphi aber bei:

Delphi-Quellcode:

{ Private-Deklarationen }
ControlOnMousePos: TControl;

Zitat:

Feld DemoForm.ControlOnMousePos besitzt keine entsprechende Komponente. Soll die Deklaration entfernt werden?