Dynamische Paintbox wird nicht angezeigt...

[glkgereon]

Hi

Ich habe mir einen Typ von TPaintBox abgeleitet und erstelle dynamisch eine Instanz dieses Typs (MyPaintBox).
Zur Vereinfachung soll diese MyPaintBox in einem Panel mit alClient angezeigt werden, damit ich direkt im OI regeln kann, wo es angezeigt werden soll...

das versuche ich so:

Delphi-Quellcode:

constructor TMyPaintBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Parent:=TWinControl(AOwner);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
  PB:=TMyPaintBox.Create(Panel1);
  PB.Align:=alClient;
  PB.Show;
end;

aber ich kann dann malen was ich will....es passiert nichts.

Woran liegts?

Edit: Rechtschreibung und Randomize hat hier nichts zu suchen....