Fórum TObjectList - O q está Errado? #212996

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    lista : TObjectList;
  end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
    btn : TButton;
    i : Integer;
begin
    try
        btn := TButton.Create(self);
        btn.Parent := self;
        btn.Caption := ´Botão´+ IntToStr( lista.count );
        showmessage(btn.caption);
        lista.Add(btn);
    finally
        FreeAndNil(btn);
    end;

    for i:=0 to lista.count-1 do
        showmessage((lista.Items[i] as TButton).Caption);
end;