TObjectList Problem

[DeddyH]

Ich hab das jetzt mal unter Delphi 2007 so versucht:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FPanels: TObjectList;
    FPanelID: integer;
    procedure SpawnPanel(PanelX, PanelY: integer);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SpawnPanel(10, 10);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FPanels.Clear;
  FPanelID := 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPanels := TObjectList.Create;
  FPanelID := 1;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FPanels.Free;
end;

procedure TForm1.SpawnPanel(PanelX, PanelY: integer);
var
  NewPanel: TPanel;
begin
  NewPanel := TPanel.Create(nil);
  NewPanel.Left := PanelX;
  NewPanel.Top := PanelY;
  NewPanel.Parent := self;
  NewPanel.Name := 'Panel' + IntToStr(FPanelID);
  FPanels.Add(NewPanel);
  ShowMessage(IntToStr(FPanels.Count));
  inc(FPanelID);
end;

Klappt einwandfrei, soweit ich feststellen konnte.