Bitmap aus Ressource ?

[Delphiturbo]

Hallo,

Mein Code funktioniert Fehlerfrei aber möchte ich das Bild nicht ständig
von Ressource aufrufen, immer wenn der Cursor auf das Button kommt

Wie kann ich am besten das Bild aufrufen ?

Delphi-Quellcode:

procedure TForm1.BitBtn1CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
    OnEnter1: TResourceStream;
begin
  OnEnter1:= TResourceStream.CreateFromID(HInstance, 106, RT_RCDATA);

  GetCursorPos(ptWork);

      if WindowFromPoint(ptWork) = BitBtn1.Handle then
  begin
    BitBtn1.Glyph := nil;
    BitBtn1.Glyph.LoadFromStream(OnEnter1);
  end;
end;