Example of how to handle memory in a list

gistfile1.txt

unit Unit3;

interface

procedure TestMemory;

implementation

uses
  Classes,
  Contnrs,
  SysUtils;

procedure TestMemory;
var
  i, t, Size, NTests: Integer;
  list: TObjectList;
begin
  NTests := 5;
  for t := 0 to NTests do
  begin
    Size := 50000;
    list := TObjectList.Create;
    try
      for i := 0 to Size do
        list.Add(TList.Create);   // might be any class instantiation
    finally
      list.Free;
    end;
  end;
end;

end.