[ecfisa]

Hola.

Por si quedara alguna duda te pongo un ejemplo con el que podés comprobar el efecto de no liberar recursos:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  vr_tags: TStrings;
  i: Integer;
  Mem: TMemoryStatus;
begin
  Mem.dwLength := SizeOf(Mem);
  GlobalMemoryStatus(Mem);
  Caption:= Format('Memoria virtual disponible: %d', [Mem.dwAvailVirtual]);
  for i:= 1 to 1000000 do
  begin
   vr_tags:= TStringList.Create;  // línea que faltaba
   vr_tags.Append('texto');
  end;
end;

Dale unos cuantos clicks al botón y me contas...

Saludos.