Ne Menge BitButtons erstellen

[Fussball-Robby]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to 10 do
    with MyBitBtn.Create(Self) do
    begin
      Parent := GroupBox1;
      Width := 25;
      Height := 25;
      Left := i * 25;
    end;
end;

Parent nicht vergessen.

Edit: Wieso leitest du MyBitBtn von TBitBtn ab, wenn du doch garnichts veränderst?