La excepción salta porque pones visible a True y luego llamas a ShowModal.
Debiera funcionar así:
Código Delphi
[-]
procedure TFRM_CNSCliente.Grid_00DBTableViewDblClick(Sender: TObject);
begin
if not Assigned(FRM_MNTCliente) then
begin
FRM_MNTCliente := TFRM_MNTCliente.Create(Self);
try
FRM_MNTCliente.FormStyle := fsNormal;
Self.Close;
FRM_MNTCliente.ShowModal;
finally
FreeAndNil(FRM_MNTCliente);
end;
end;
end;
Finalmente, si querés que el form creado sea también un MDIChild, te recuerdo que estos formularios no pueden mostrarse de manera modal, por lo que tendrías que mostrarlo con Show y esperar a que el usuario lo cierre para destruirlo.
Hasta luego.