1:
2:
3:
4:

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
  gc.Collect;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
var aString : array of String;
    a : Integer;
begin
  Messagebox.Show ( 'Schätzwert für die reservierte Anzahl von Bytes momentan : ' + gc.GetTotalMemory(false).toString);
  setLength (aString,100);
  for a := 1 to 99 do
    begin
        aString [a] := 'Stringwert '+ a.ToString;
    end;
  Messagebox.Show ( 'Schätzwert für die reservierte Anzahl von Bytes nach Arraybefüllung : ' + gc.GetTotalMemory(false).toString);
  gc.Collect;
  Messagebox.Show ( 'Schätzwert für die reservierte Anzahl von Bytes nach GC.Collect : ' + gc.GetTotalMemory(false).toString);
end;