Canvas.draw problem

[ste_ett]

Bei mir gehts.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  EButton := TEButton.Create(nil);
  EButton.Width := 100;
  EButton.Height := 25;
  EButton.Top := 100;
  EButton.Left := 100;
  EButton.Graphic := TBitmap.Create;
  EButton.Graphic.LoadFromFile('bild1.bmp'); // 100x25 Pixel 24bit Bitmap
  EButton.Parent := Form1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  EButton.Graphic.Free; // evtl. im destructor erledigen  /  Assigned()
  EButton.Free;
end;