SpeedButton ein Bitmap aus einer TImageList zuweisen

[sakura]

Nimm doch mein Code, Copy&Paste ist ja nicht so schwer, oder? Kurze Erläuterung

Code:

procedure TForm1.BitBtn1Click(Sender: TObject); 
var 
  Bmp: TBitmap; 
begin 
  [color=#0000ff]// temporäre Bitmap erstellen[/color]
  Bmp := TBitmap.Create(); 
  [color=#0000ff]// Versuche...[/color]
  try 
    [color=#0000ff]// das 1. (Position 0) Bitmap aus der ImageListe in das temporäre Bitmap zu laden[/color]
    if ImageList1.GetBitmap(0, Bmp) then 
      [color=#0000ff]// Weise dieses jetzt dem BitBtn (oder SpeedButton) zu[/color]
      BitBtn1.Glyph.Assign(Bmp); 
  [color=#0000ff]// abschließend, egal ob der Rest seit dem [b]try[/b] funktioniert hat[/color]
  finally 
    [color=#0000ff]// lösche das temporäre Bitmap wieder, um den Speicher freizugeben[/color]
    Bmp.Free; 
  end; 
  [color=#0000ff]// fertig[/color]
end;