Hi Gereon,
vielleicht solltest du als erstes folgende Änderung machen:
Delphi-Quellcode:
constructor TMyPaintBox.Create(AOwner, AParent: TComponent);
begin
inherited Create(AOwner);
Parent := AParent;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
PB := TMyPaintBox.Create(self, Panel1);
PB.Align := alClient;
end;
Danach solltest du die Behandlungsroutine für das Ereignis OnPaint deiner Komponente untersuchen. Ich wüsste sonst nicht, warum die Darstellung unterbleiben sollte.
Grüße vom marabu