tengo problemas al cerrar un form que se llama frm_datosEgreso
al dar click en el AdvGlowButton Cancelar me sale un error
Access violation at address 004AD66E in module 'Historia_clinica.exe '. read of address 000002F4
el codigo que tengo es
if Frm.ModalResult = mrOk then begin if ((Frm.DBLookupComboBox1.KeyValue <> null)OR(Frm.DBLookupComboBox3.KeyValue <> null)OR(Frm.DBLookupComboBox4.KeyValue <> null)OR(Frm.DBLookupComboBox5.KeyValue <> null)OR(Frm.q_DxSalida.Fields[0].AsInteger <> 0)) then BEGIN RegActuales.MotivoEgreso := Frm.DBLookupComboBox1.KeyValue ; // Frm.q_Motivo.Fields[0].AsInteger; RegActuales.DestinoEgreso:= Frm.DBLookupComboBox3.KeyValue ; //Frm.q_Destino.Fields[0].AsInteger; RegActuales.EstadoEgreso := Frm.DBLookupComboBox4.KeyValue; //Frm.q_EstadoSalida.Fields[0].AsInteger; RegActuales.Destino3047Egreso := Frm.DBLookupComboBox5.KeyValue; //Frm.q_Destino3047.Fields[0].AsInteger; RegActuales.DxEgreso:= Frm.q_DxSalida.Fields[0].AsInteger; // lo Comentado valida los registros por buscadores Result := True; end; raise Exception.Create('debe llenar todos los valores'); end; if frm.ModalResult = mrCancel then FrmDatosEgreso.Close; finally Frm.Free; Fdm.Free; end; end;