Código Delphi [-] procedure TForm1.MDIChildClose(Sender: TObject; var Action: TCloseAction); begin Action:= caFree; end;
procedure TForm1.MDIChildClose(Sender: TObject; var Action: TCloseAction); begin Action:= caFree; end;