BitBtn Button effekt

[Delphiturbo]

Delphi-Quellcode:

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

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}


procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = BitBtn1.Handle then
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(0, BitBtn1.Glyph);
end;

procedure TForm1.CMMouseLeave(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = BitBtn1.Handle then
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(1, BitBtn1.Glyph);
end;



end.

Das Button bekommt ein Bild wenn der Cursor auf Form kommt und nicht wenn der Cursor auf Button
Das Bild bleibt für immer das selbe, auch wenn ich den Cursor entferne !