[M.A.D.M.A.N.]

Ну вы совсем уже.

Код:

var
  foo: TForm1;
begin
  // на этой форме никаких Action := caFree не надо
  foo := TForm1.Create(Application);
  try
    foo.ShowModal;
  finally
    foo.Free;
  end;
end;