implementacja zdarzenia onMouseMeave

Czy ktoś posiada zrodla nowego VCLa i moglby wkleić kod funkcji OnMouseLeave (TLabel)? Niestety w wersjach nizszych nie jest to zaimplementowane, albo prosilbym o jakas konretna wskazowke jak w jaki spsob sprawdzic czy myszka jest nad kontrolka rodzicem kontrolki Tlabel. Reczne wklepywanie w zdarzenaich on mouse movie komponentow rodzicow mija sie z celem, p opoierwse nieldanie to wyglada po drugie
przy szybkim przeswuwaniu myszki nie zawsze zalapuje.

pozdrawiam

property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;

...

procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

procedure TCustomLabel.CMMouseLeave(var Message: TMessage);
begin
  inherited; // w TGraphicControl (poniżej)
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;

...

procedure TControl.CMMouseLeave(var Message: TMessage);
begin
  if FParent <> nil then
    FParent.Perform(CM_MOUSELEAVE, 0, Longint(Self));
end;

// Wartości komunikatów

CM_MOUSELEAVE = CM_BASE + 20;
CM_BASE = $B000;

Ogromnie dziękuje

Czepia się FParent.