[xchgeaxeax]

Ещё можете сделать это в циклах и посмотреть как будет прирастать память программы.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  l : TList<TPair<Integer,Integer>>;
  p : TPair<Integer,Integer>;
  i, j: Integer;
begin
  for j := 0 to 99999 do begin
    l := TList<TPair<Integer,Integer>>.Create;
    Try
      for i := 0 to 99999 do
        l.Add(TPair<Integer,Integer>.Create(i,2*i));
    Finally
      l.Free;
    End;
    Sleep(100); // Чтобы насладиться моментом
  end;
end;