Error con ShowModal

[[Lepe]]

Empezado por vtdeleon

aunque creo que no es necesario tener Form3.free ya que se cierra sola.

Código Delphi [-]
procedure TCustomForm.CloseModal;
var
  CloseAction: TCloseAction;
begin
  try
    CloseAction := caNone;
    if CloseQuery then
    begin
      CloseAction := caHide;
      DoClose(CloseAction);
    end;
    case CloseAction of
      caNone: ModalResult := 0;
      caFree: Release;
    end;
  except
    ModalResult := 0;
    Application.HandleException(Self);
  end;
end;

En principio, al cerrar una ventana modal se oculta, a menos que se haya especificado en el OnClose: action := cafree; esto se verifica en el DoClose(var Action:TcloseAction)

Un saludo