function CheckSizeOP: Cardinal;
var
  pmc: PPROCESS_MEMORY_COUNTERS;
  cb: Integer;
  ppp: int64;
begin
  Result:= 0;

  cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
  GetMem(pmc, cb);
  try
    pmc^.cb := cb;
    if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then
    Result:=round(pmc^.PagefileUsage/1048576);
  finally
    FreeMem(pmc);
  end;
end;

function MyGetAllocatedMemory: Cardinal;
var
  MemoryManagerState: TMemoryManagerState;
  K: Byte;
begin
  GetMemoryManagerState(MemoryManagerState);
  With MemoryManagerState do begin
    Result :=  TotalAllocatedLargeBlockSize + TotalAllocatedMediumBlockSize;
      For K := 0 to 54 do
        with SmallBlockTypeStates[K] do
          Result := Result + UseableBlockSize + InternalBlockSize + ReservedAddressSpace;
  end;
  Result := Result div 1024;
end;

type
    TValueD = class (TObject)
      a1, a2, a3: uint32;
      b1, b2, b3: integer;
      d1, d2: TDateTime;
      constructor Create(...); overload;
  end;

  type
  TDic = TObjectDictionary <string, TValueD>;
  var
  Dic: TDic;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,ii, cnt: integer;
begin
   edit2.Text:= inttostr(strtoint(edit2.Text)+1);
   ii:= strtoint(edit2.Text);
   cnt:= strtoint(edit1.Text);
   for i := 1 to cnt do
   begin
     Dic.Add(ii.ToString+'-'+ i.ToString, TValueD.Create(now, now+2323, 111111111, 2222222222,
                  3333333333, 1234, 2345, 56789));
   end;
   label3.Caption:= 'Кол-во элементов: ' + dic.Count.ToString;
   label4.Caption:= 'Размер ОП: ' + CheckSizeOP.ToString;
   label5.Caption:= 'Другой ОП: ' + MyGetAllocatedMemory.ToString;
end;

procedure TForm1.Button2Click(Sender: TObject);
  var
  i, ii, cnt: integer;
begin
   cnt:= strtoint(edit1.Text);
   ii:= strtoint(edit2.Text);
   for i := 1 to cnt do
   begin
     Dic.remove(ii.ToString+'-'+ i.ToString);
   end;
   dic.TrimExcess;
   label3.Caption:= 'Кол-во элементов: ' + dic.Count.ToString;
   label4.Caption:= 'Размер ОП: ' + CheckSizeOP.ToString;
   label5.Caption:= 'Другой ОП: ' + MyGetAllocatedMemory.ToString;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Dic.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Dic:= TDic.Create([doOwnsValues]);
end;