Problema usando el objeto TStrings

[[Caral]]

Hola
Bien:
Entonces suponemos que free libera la memoria, no?.
Siguiendo tu ejemplo, que pasa aqui amigo?:

Código Delphi [-]
var
  Form1: TForm1;
  vr_tags: TStrings;
  i: Integer;
  Mem: TMemoryStatus;

  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
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;

procedure TForm1.Button2Click(Sender: TObject);
begin
  vr_tags.Free;
  Mem.dwLength := SizeOf(Mem);
  GlobalMemoryStatus(Mem);
  Caption:= Format('Memoria virtual disponible: %d', [Mem.dwAvailVirtual]);

end;

Que hago mal?
Saludos