TList可以方MaxInteger div 16个Pointer. 我用下列代码建立了1200个TPanel
没发现任何问题(把TPanel换成TButton也一样).
procedure TForm1.FormCreate(Sender: TObject);
var
i, j: integer;
APanel: TPanel;
begin
for i := 1 to 40 do for j := 1 to 30 do
begin
APanel:=TPanel.create(self);
APanel.BoundsRect:=Rect(i*20,j*20,(i+1)*20,(J+1)*20);
APanel.Caption:=IntToStr(i*j);
APanel.Parent:=self;
end;
end;