OnMouseMove verzögern

[faux]

Wies scheint hab ich da was falsch gemacht. Es funktioniert nicht. :S

Delphi-Quellcode:

unit Unit2;

interface

uses
  Messages, Classes, Controls, JvTrayIcon;

type
  TCustomJvTrayIcon = class(TJvTrayIcon)
  private
    FMouseEnter, FMouseLeave: TNotifyEvent;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property OnMouseEnter: TNotifyEvent read FMouseEnter write FMouseEnter;
    property OnMouseLeave: TNotifyEvent read FMouseLeave write FMouseLeave;
  end;

implementation

procedure TCustomJvTrayIcon.CMMouseEnter(var Message: TMessage);
begin
  if Assigned(FMouseEnter) then
    OnMouseEnter(Self);
end;

procedure TCustomJvTrayIcon.CMMouseLeave(var Message: TMessage);
begin
  if Assigned(FMouseLeave) then
    OnMouseLeave(Self);
end;

constructor TCustomJvTrayIcon.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  OnMouseEnter := nil;
  OnMouseLeave := nil;
end;

end.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrayIcon := TCustomJvTrayIcon.Create(Self);
  TrayIcon.Active := True;
  TrayIcon.OnMouseEnter := TrayIconMouseEnter;
  TrayIcon.OnMouseLeave := TrayIconMouseLeave;
end;

procedure TForm1.TrayIconMouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Entered';
end;

procedure TForm1.TrayIconMouseLeave(Sender: TObject);
begin
  Label1.Caption := 'Left';
end;

Woran liegt das?!

Ich weiß, ich werf' euch jetzt einfach so nen Code hin, so nach dem Motto sucht den Fehler, aber ich habe leider keinen Plan wo der Fehelr liegen kann.

Grüße
Faux