Canvas auf SpeedButton zeichnen?

[cYaONE]

Danke erstmal!
Ein weiteres Problem: Warum funktioniert das hier nicht?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
  var
  bmp: TBitmap;
begin
  try
    bmp := TBitmap.Create;

    bmp.Canvas.Rectangle(0, 0, 20, 20);
    { Hier kannst Du nun auf dem Bitmap herumzeichnen... }

    SpeedButton1.Glyph.Assign(bmp);
  finally
    bmp.Free;
  end;
end;