Out of memory

[Firewind]

Hola.
Estoy creando una aplicacion con lazarus, para cargar un form, uso lo siguiente en la unidad del form a crear:

procedure ShowFormTest;
begin
  with TFTest.Create(Application) do
    begin
      ShowModal;
      Free;
    end;
end;

El problema que tengo es que desde el form que se llama, cuando cierro el for TFTest, eligo otro test y vuelvo a crear el TFTest de nuevo. Cuando realizo ese proceso varias veces me sale el error 'Out of memory'.
En teoria, hago un Free, pero no se libera la memoria.
Alguna idea?
Saludos