Malen auf Canvas

[shareholder]

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  myBgLayer := TPaintBox.Create(Self);
  myBgLayer.Parent := Form1;
  myBgLayer.Show;

  with myBgLayer do
  begin

    Align := alCustom;
    Cursor := crHelp;

    // Default-Eigenschaftem für die PaintBox :
    Width := 200;
    Height := 200;

    // Rechteck malen :
    with Canvas do
    begin
      MoveTo(10, 10);
      Pen.Color := clBlue;
      Rectangle(10, 10, 100, 100);
    end;

  end;

end;

funzt soweit , jedoch - rechteck malen -
wird nicht ausgeführt

füge ich den code - rechteck malen -
jedoch in ein button onclick ereignis
dann funzt es

komisch

was ist falsch ?