Einem Label (mit SS_BITMAP) eine tBitmap-Variable zuweisen?

[graphicar]

Schönen sonnigen Tag euch. :)

Ich würde gerne folgende Erweiterung bewerkstelligen:

Vorher:

Habe ein Label mit u.a. dem Parameter "SS_BITMAP", welcher per Kombination
von einer Bildressource und der SendMessage-Funktion, zu einem funktionierenden
"Speedbutton" umfungiert wurde. Jegliche Routinen und Nachrichteninteraktionen
klappen auch zufriedenstellend.

Delphi-Quellcode:

(*******************************************)
(*     Hier ein Stückchen Beispielcode.    *)
(* Soweit klappt der Quellcode einwandfrei,*)
(*        ich habe keine Probleme.         *)
(*******************************************)

const
  IDC_Beispiel_Label = 123;
var
  Beispiel_Label     : DWord;
  Bitmap_handle      : HBITMAP;

[...]

  (* Erstellung eines Labels, mit einem Bildparameter. *)
  Beispiel_Label     := CreateWindowEx ( 0,
                                         'STATIC',
                                         '',
                                         WS_VISIBLE or WS_CHILD or SS_BITMAP or SS_REALSIZEIMAGE,
                                         0,
                                         0,
                                         200,
                                         200,
                                         FormMain.hWnd,
                                         IDC_Beispiel_Label,
                                         hInstance,
                                         nil
                                       );

  (* Das Handle (hier: Bitmap_handle) hat nun das Ressourcebild am Anker. *)
  Bitmap_handle := LoadBitmap( hInstance, MAKEINTRESOURCE(180));      

  (* Dem Label wird per Handle das Bild zugewiesen. *)  
  SendMessage(Beispiel_Label,STM_SETIMAGE,IMAGE_BITMAP,Bitmap_handle);

[...]

Mein neuer Ansatz/mein Problem:

Ich würde gerne diesem Button, nicht direkt das
Ressourcebild zuweisen, sondern eine Variable von tBitmap.

Sinn dieser Idee:

Ich bastele mir ein schwarzes Rechteck (0,0,100,100) und setze dort
mein Ressourcebild(width=50,height=50) an der Stelle "left := 25" und
"top := 25" ein. Danach wird die tBitmap-Variable an meinen Button
gesendet. Ich habe jetzt schon einiges versucht und mir ewiges Zeugs
in Google durchgelesen. Weitergekommen bin ich leider nicht. :-|

Cii jaa©$me
graphicar