TObjectList Problem

[Sir Rufo]

Da ShowMessage dein Freund ist:

Delphi-Quellcode:

procedure SpawnPanel(PanelX,PanelY: Integer);
begin
  NewPanel := TPanel.Create(Application);
  ShowMessage( IntToStr( PanelsList.Count ) );
  PanelsList.Add(NewPanel);
  ShowMessage( IntToStr( PanelsList.Count ) );
  with NewPanel do
  begin
    Name := 'Panel' + IntToStr(PanelID);
    PanelID := PanelID + 1;
    Left := PanelX;
    Top := PanelY;
    Caption := ObjectCaption;
    Parent := fmPool;
    Enabled := False;
    { ... }
    OnClick := fmPool.SelectObject;
  end;
end;

Was zeigt bekommst du mit ShowMessage denn da angezeigt?
Oder wird dieses ShowMessage evtl. gar nicht aufgerufen?