Fórum Liberar form da memória #343256

procedure CreateForm(aForm: TForm); 
begin 
   try 
      Application.CreateForm(TForm, aForm); 

      with aForm do 
      begin 
         Top         := 100; 
         Left        := 100; 
         Height      := 200; 
         Width       := 200; 
         BorderStyle := bsSingle; 
         FormStyle   := fsMDIChild; // Tem que ser MDI mesmo 
         Show; 
      end; 
   finally 
   end; 
end; 

procedure TfPrincipal.Button1Click(Sender: TObject); 
var aa: TForm; 
begin 
    CreateForm(aa); 
end;