BitBtn-Icon bei OnMouseLeave wieder das altes Bild zurück

[Delphiturbo]

Hallo,

Delphi-Quellcode:

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

procedure TForm1.BitBtn1CMMouseLeave(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) <> BitBtn1.Handle then
  begin
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(1, BitBtn1.Glyph); // ok aber möchte ich das Icon vor OnMouseEnter wieder zurücksetzen !?
  end;

end;

Ist das möglich ?