Problema al ejecutar aplicacion cliente servidor

[Choclito]

Hola amigos del foro antes que nada comentarles q trabajo con delphi 7 y firebird 1.5 decirles q gracias al foro pude solucionar un problema que tenia respecto a un sistema cliente servidor donde tenia q registrar el nombre de la PC que hacia de servidor, entonces lo que hice es los siguiente en el evento on create del modulo de la aplicacion hago el siguiente codigo:

Código Delphi [-]
modulo_bd.MDOBD_SAM.Connected:=false;
modulo_bd.MDOT_SAM.Active:=false;
modulo_bd.mdoq_listado_gral.Active:=false;
modulo_bd.mdoq_act_edad.Active:=false;
if FileExists('D:\P_SAM\Config\Config.txt') then
begin
 with TStringList.Create do
  try
    LoadFromFile('D:\P_SAM\Config\Config.txt');

modulo_bd.MDOBD_SAM.DatabaseName:=Strings[0]+':'+'D:\P_SAM\BD\P_SAM.FDB';
modulo_bd.MDOBD_SAM.Params.Add('user_name=SYSDBA');
modulo_bd.MDOBD_SAM.Params.Add('password=masterkey');
modulo_bd.MDOBD_SAM.Connected:=true;
modulo_bd.MDOT_SAM.Active:=true;
modulo_bd.mdoq_listado_gral.Active:=true;
modulo_bd.mdoq_act_edad.Active:=true;

    SaveToFile('D:\P_SAM\Config\Config.txt');
  finally
    Free;
  end;
end
else
begin
modulo_bd.MDOBD_SAM.Connected:=false;
modulo_bd.MDOT_SAM.Active:=false;
f_conectar.ShowModal;
end;

aqui es donde llamo a un archivo txt que tendra el dato de la PC servidora y si no lo tiene llamo a otro form donde registro el nombre de la PC servidora para que luego directamente me llame al archivo txt y la coneccion sea directa el codigo en el onclick del boton del form es el siguiente:

Código Delphi [-]
 function Guardar(Filename: string; Buffer: Pointer; Pos, Count: Cardinal): Boolean;
var
  F: File;
  Escritos: Cardinal;
begin
  Result:= FALSE;
  AssignFile(F,Filename);
  {$I-}
    Rewrite(F,1);
  {$I+}
  if IOResult=0 then
  begin
    inc(PByte(Buffer),Pos);
    Escritos:= 0;
    BlockWrite(F,Buffer^,Count,Escritos);
    Result:= Escritos = Count;
    CloseFile(F);
  end;
end;

procedure TF_Conectar.LMDSpeedButton1Click(Sender: TObject);
begin
modulo_bd.MDOBD_SAM.Connected:=false;
modulo_bd.MDOT_SAM.Active:=false;
modulo_bd.mdoq_listado_gral.Active:=false;
modulo_bd.mdoq_act_edad.Active:=false;
Guardar('D:\P_SAM\Config\Config.txt',PChar(login.Text),0,length(login.Text));
modulo_bd.MDOBD_SAM.DatabaseName:=login.Text+':'+'D:\P_SAM\BD\P_SAM.FDB';
modulo_bd.MDOBD_SAM.Params.Add('user_name=SYSDBA');
modulo_bd.MDOBD_SAM.Params.Add('password=masterkey');
modulo_bd.MDOBD_SAM.Connected:=true;
modulo_bd.MDOT_SAM.Active:=true;
modulo_bd.mdoq_listado_gral.Active:=true;
modulo_bd.mdoq_act_edad.Active:=true;
close;
end;

coloco tambien el codigo de la funcion guardar
Ahora bien una vez ejecutado el sistema todo bien el problema es cuando cierro la aplicacion me sale el sgte mensaje
Exception EAccessViolation in Module P_SAM at 001816E4
Read of Address
luego me marcha el siguiente codigo de la unidad Classes

Código Delphi [-]
  DestroyComponents;
  if FOwner <> nil then FOwner.RemoveComponent(Self);
  inherited Destroy;

La verdad nose como solucionarlo porfavor quisiera q me puedan dar sugerencias de como poder arreglar el problema q tengo puesto q cuando ejecuto desde delphi se detiene la aplicacion y tengo que resetearla y cuando ejecuto directamente el sistema me sale muchos informes de errores
Creo q es por la utilizacion de ttringlist como pudiera arreglarlo??? que es lo q estoy haciendo mal?? muchas gracias por toda la ayuda q me brinden amigos del foro

[Choclito]

Hola amigos del foro primeramente Feliz Navidad para todos
Pasando al problema q tengo no se si lo plantee bien o es q tengo q cambiarlo de seccion
Nuevamente les explico lo que quiero hacer:
tengo una maquina q trabaja de servidora y cliente entonces esta maquina y las otras q se conecten cuando se ejecute el sistema quiero obtener el nombre de la Pc servidora q este guardada en un archivo txt y si es la primera vez q se registre el nombre de la pc servidora y luego se guarde ese dato en un archivo txt asi para q las siguiente vez q se ingrese tome el nombre de la pc servidora del archivo txt
Para eso el codigo q mostre lo hice en el evento oncreate del modulo donde estan mis componentes tmercurytools
¿Cual seria otra opcion para lograr lo q les mencione?
¿Donde estoy cometiendo el error?
Espero porfavor que me colaboren o es que el hilo tendria q cambiarlo a otra seccion
Muchas gracias por todas las respuestas q puedan brindarme

[[Lepe]]

Quizás el problema es que desde otra Pc clente (distinta al servidor) no se puede acceder al archivo de texto, para ello debería estar compartida la carpeta donde está el archivo txt.

Quizás el error se produzca en otro sitio, por lo que dices de la unidad Classes, el error tiene toda la pinta de querer destruir un objeto 2 veces. Revisa en tu código si liberas objetos (Forms sobre todo) y cómo lo haces. Por regla general usa FreeAndNil cuando liberes un Form.

Por otra parte creo que te has complicado la vida creando el fichero de texto un TIniFile (busca en el foro) sería mucho más fácil de manipular.


Saludos

[Choclito]

Como siempre gracias al foro pude utilizar los Tinifiles y todo bien pero ahora me sigue saliendo el error donde al ultimo me marca en :

Código Delphi [-]
 DestroyComponents;
  if FOwner <> nil then FOwner.RemoveComponent(Self);
  inherited Destroy;

este codigo esta dentro de la unidad Clases
Ahora bien el codigo q hice es el siguiente tengo un modulo en el cual estan mis componentes mdobd,mdotransaction entonces en el evento on create del modulo tengo el siguiente codigo:

Código Delphi [-]
modulo_bd.MDOBD_SAM.Connected:=false;
modulo_bd.MDOT_SAM.Active:=false;
modulo_bd.mdoq_listado_gral.Active:=false;
modulo_bd.mdoq_act_edad.Active:=false;
Fichero := ExtractFileDir (ParamStr(0))+'\Config.ini';
if FileExists('D:\P_SAM\Aplicacion\Config.ini') then
begin
MiFichero := TiniFile.Create (Fichero);
Var1:= MiFichero.ReadString ('ServidorBD','Servidor','');
MiFichero.Free;
modulo_bd.MDOBD_SAM.DatabaseName:=var1+':'+'D:\P_SAM\BD\P_SAM.FDB';
modulo_bd.MDOBD_SAM.Params.Add('user_name=SYSDBA');
modulo_bd.MDOBD_SAM.Params.Add('password=masterkey');
modulo_bd.MDOBD_SAM.Connected:=true;
modulo_bd.MDOT_SAM.Active:=true;
modulo_bd.mdoq_listado_gral.Active:=true;
modulo_bd.mdoq_act_edad.Active:=true;
end
else
begin
modulo_bd.MDOBD_SAM.Connected:=false;
modulo_bd.MDOT_SAM.Active:=false;
f_conectar.ShowModal;
end;

ahora bien si el archivo no existe entonces se llama a otro formulario donde se registrara el nombre de la PC servidora
entonces en el eventro onclick del boton del formulario f_conectar tengo el siguiente codigo:

Código Delphi [-]
var MiFichero:Tinifile;
fichero,var1:string;
begin
modulo_bd.MDOBD_SAM.Connected:=false;
modulo_bd.MDOT_SAM.Active:=false;
modulo_bd.mdoq_listado_gral.Active:=false;
modulo_bd.mdoq_act_edad.Active:=false;
Fichero := ExtractFileDir (ParamStr(0))+'\Config.ini';
 MiFichero := TiniFile.Create (Fichero);
 MiFichero.WriteString ('ServidorBD','Servidor',login.text);
 MiFichero.Free;
 //Guardar('D:\P_SAM\Config\Config.txt',PChar(login.Text),0,length(login.Text));
modulo_bd.MDOBD_SAM.DatabaseName:=login.Text+':'+'D:\P_SAM\BD\P_SAM.FDB';
modulo_bd.MDOBD_SAM.Params.Add('user_name=SYSDBA');
modulo_bd.MDOBD_SAM.Params.Add('password=masterkey');
modulo_bd.MDOBD_SAM.Connected:=true;
modulo_bd.MDOT_SAM.Active:=true;
modulo_bd.mdoq_listado_gral.Active:=true;
modulo_bd.mdoq_act_edad.Active:=true;
close;
end;

donde es que cometo el error ??? o en que evento tendria q estar el codigo?? la verdad no me ubico en que evento tendria q destruir un objeto??
como siempre espero que me puedan brindar toda la ayuda posible
indicarles q mas antes que haga este codigo todo iva bien
Muchas gracias por toda la ayuda q puedan brindarme

[[Lepe]]

¿cual es la filosofía que usas en creación de ventanas?

Normalmente se pueden crear con :
- Application.Createform(TForm1, form1);
- Form1 := TForm1.Create( ) el parámetro que lleva dentro de los paréntesis puede variar y quizás por ahí venga el problema. De hecho ese parámetro es el FOwner que te marca en el depurador.

Quizás tengas suerte. cuando te marca ese error, mira la pila "Stack" con el depurador, ojalá venga algo que te suene (por ejemplo una ventana de clientes, un informe de Quickreport... no sé, algo de tu programa).

Si todas las ventanas las creas de la misma forma, explica como lo haces y como se destruyen después.

Saludos

[Choclito]

Muchas gracias por responder Lepe y te muestro como esta la unidad principal del proyecto (disculpas por copiar todo el codigo de la unidad principal):

Código Delphi [-]
 Application.Initialize;
  //SplashScreen:=TSplashScreen.Create(application);
  //SplashScreen.Show;
  Application.Title := 'Sistema de Asistencia Médica';
  Application.HelpFile := 'D:\P_SAM\Ayuda & Manual_usuario\Ayuda\AYUDA.HLP';
  Application.CreateForm(TF_Usuarios, F_Usuarios);
  Application.CreateForm(TModulo_BD, Modulo_BD);
  Application.CreateForm(TF_Conectar, F_Conectar);
  Application.CreateForm(TF_Menu, F_Menu);
  Application.CreateForm(TModulo_Dr_Esp, Modulo_Dr_Esp);
  Application.CreateForm(TF_Especialidad, F_Especialidad);
  Application.CreateForm(TF_Doctor, F_Doctor);
  Application.CreateForm(TModulo_Aseg_Benef, Modulo_Aseg_Benef);
  Application.CreateForm(TF_Asegurados, F_Asegurados);
  Application.CreateForm(TF_Beneficiario, F_Beneficiario);
  Application.CreateForm(TF_Select_rep_ingresos_med, F_Select_rep_ingresos_med);
  Application.CreateForm(TF_Cita, F_Cita);
  Application.CreateForm(TF_Re_asegurados, F_Re_asegurados);
  Application.CreateForm(TF_re_beneficiarios, F_re_beneficiarios);
  Application.CreateForm(TF_Listado_Medicos, F_Listado_Medicos);
  Application.CreateForm(TF_Buscar_Benef, F_Buscar_Benef);
  Application.CreateForm(TF_Select_Rep_Pacientes, F_Select_Rep_Pacientes);
  Application.CreateForm(TRep_General, Rep_General);
  Application.CreateForm(TModulo_Cita, Modulo_Cita);
  Application.CreateForm(TF_Consulta_Medica, F_Consulta_Medica);
  Application.CreateForm(TF_PlanCuentas, F_PlanCuentas);
  Application.CreateForm(TF_HC, F_HC);
  Application.CreateForm(TModulo_Contabilidad, Modulo_Contabilidad);
  Application.CreateForm(TF_AsientoContable, F_AsientoContable);
  Application.CreateForm(TF_Rep_Libro_Diario, F_Rep_Libro_Diario);
  Application.CreateForm(TReporte_Libro_Diario, Reporte_Libro_Diario);
  Application.CreateForm(TRep_Libro_Mayor, Rep_Libro_Mayor);
  Application.CreateForm(TF_Rep_Libro_Mayor, F_Rep_Libro_Mayor);
  Application.CreateForm(TF_Rep_Balance, F_Rep_Balance);
  Application.CreateForm(TReporte_Balance, Reporte_Balance);
  Application.CreateForm(TReporte_Especialidad, Reporte_Especialidad);
  Application.CreateForm(TF_Nueva_Consulta, F_Nueva_Consulta);
  Application.CreateForm(TModulo_HC_Consulta, Modulo_HC_Consulta);
  Application.CreateForm(TF_acerca_de, F_acerca_de);
  Application.CreateForm(TModulo_Medicamentos, Modulo_Medicamentos);
  Application.CreateForm(TF_Grupo_Medicamento, F_Grupo_Medicamento);
  Application.CreateForm(TRecetario, Recetario);
  Application.CreateForm(TF_Hospitalizacion, F_Hospitalizacion);
  Application.CreateForm(TF_Selec_Hospital, F_Selec_Hospital);
  Application.CreateForm(TF_Hospital, F_Hospital);
  Application.CreateForm(TReporte_Hospitalizacion, Reporte_Hospitalizacion);
  Application.CreateForm(TF_Examenes_Laboratorio, F_Examenes_Laboratorio);
  Application.CreateForm(TF_Laboratorios, F_Laboratorios);
  Application.CreateForm(TF_selec_laboratorio, F_selec_laboratorio);
  Application.CreateForm(TF_Examenes, F_Examenes);
  Application.CreateForm(TReporte_Sol_Laboratorios, Reporte_Sol_Laboratorios);
  Application.CreateForm(TF_Certificados, F_Certificados);
  Application.CreateForm(TRep_Certificados, Rep_Certificados);
  Application.CreateForm(TFrmMessageBox, FrmMessageBox);
  Application.CreateForm(TF_Proveedores, F_Proveedores);
  Application.CreateForm(TF_Ingresos, F_Ingresos);
  Application.CreateForm(TF_Egresos, F_Egresos);
  Application.CreateForm(TF_M_farmacia, F_M_farmacia);
  Application.CreateForm(TF_det_asiento, F_det_asiento);
  Application.CreateForm(TF_listado_asientos, F_listado_asientos);
  Application.CreateForm(TReporte_Estudios, Reporte_Estudios);
  Application.CreateForm(TF_Rep_citas1, F_Rep_citas1);
  Application.CreateForm(TF_Act_Hospitalizacion, F_Act_Hospitalizacion);
  Application.CreateForm(TModulo_Actualizaciones, Modulo_Actualizaciones);
  Application.CreateForm(TF_Act_Examenes, F_Act_Examenes);
  Application.CreateForm(TF_Act_Estudios, F_Act_Estudios);
  Application.CreateForm(TModulo_Migrador, Modulo_Migrador);
  Application.CreateForm(TModulo_Presupuestos, Modulo_Presupuestos);
  Application.CreateForm(TF_PlanPresupuestos_I, F_PlanPresupuestos_I);
  Application.CreateForm(TF_Farmacia, F_Farmacia);
  Application.CreateForm(TF_Selec_Mensual_F, F_Selec_Mensual_F);
  Application.CreateForm(TModulo_Reportes, Modulo_Reportes);
  Application.CreateForm(TReporte_Mes_Farmacias, Reporte_Mes_Farmacias);
  Application.CreateForm(TF_PlanCuentas_E, F_PlanCuentas_E);
  Application.CreateForm(TF_Presupuestos_I, F_Presupuestos_I);
  Application.CreateForm(TF_Selec_Pres_i, F_Selec_Pres_i);
  Application.CreateForm(TF_Selec_rep_pres, F_Selec_rep_pres);
  Application.CreateForm(TRep_Listado_Pres_Ing, Rep_Listado_Pres_Ing);
  Application.CreateForm(TReporte_Ing_Anual, Reporte_Ing_Anual);
  Application.CreateForm(TF_Menu_Admin_sistem, F_Menu_Admin_sistem);
  Application.CreateForm(TModulo_Seguridad, Modulo_Seguridad);
  Application.CreateForm(TF_Menu_Doctor, F_Menu_Doctor);
  Application.CreateForm(TF_Menu_Fichaje, F_Menu_Fichaje);
  Application.CreateForm(TF_Menu_Farmacia, F_Menu_Farmacia);
  Application.CreateForm(TF_Datos_Usuario, F_Datos_Usuario);
  Application.CreateForm(TF_Cambiar_Pasw, F_Cambiar_Pasw);
  Application.CreateForm(TF_Menu_Adm, F_Menu_Adm);
  Application.CreateForm(TF_Menu_CyP, F_Menu_CyP);
  Application.CreateForm(TF_Migrador_Hos, F_Migrador_Hos);
  Application.CreateForm(TF_Migrador_Lab, F_Migrador_Lab);
  Application.CreateForm(TF_Centro_Est, F_Centro_Est);
  Application.CreateForm(TF_Migrador_Cen, F_Migrador_Cen);
  Application.CreateForm(TRep_Asegurados_Inh, Rep_Asegurados_Inh);
  Application.CreateForm(TReporte_Por_asegurado, Reporte_Por_asegurado);
  Application.CreateForm(TF_Asiento_Similar, F_Asiento_Similar);
  Application.CreateForm(TF_Tipo_Asiento, F_Tipo_Asiento);
  Application.CreateForm(TF_Asiento_Tipo, F_Asiento_Tipo);
  Application.CreateForm(TF_Selec_a_tipo, F_Selec_a_tipo);
  Application.CreateForm(TF_d_asiento_tipo, F_d_asiento_tipo);
  Application.CreateForm(TF_Presupuestos_E, F_Presupuestos_E);
  Application.CreateForm(TReporte_listado_egresos, Reporte_listado_egresos);
  Application.CreateForm(TReporte_Egr_Anual, Reporte_Egr_Anual);
  Application.CreateForm(TF_det_pres_ing_egr, F_det_pres_ing_egr);
  Application.CreateForm(TF_det_pres_egr, F_det_pres_egr);
  Application.CreateForm(TF_Eliminar_A, F_Eliminar_A);
  Application.CreateForm(TReporte_Asiento, Reporte_Asiento);
  Application.CreateForm(TReporte_p_k_ingresos, Reporte_p_k_ingresos);
  Application.CreateForm(TReporte_p_k_Egresos, Reporte_p_k_Egresos);
  Application.CreateForm(TF_Selec_rep_aseg_benef, F_Selec_rep_aseg_benef);
  Application.CreateForm(TReporte_sexo_tipo, Reporte_sexo_tipo);
  Application.CreateForm(TReporte_por_edades, Reporte_por_edades);
  Application.CreateForm(TReporte_aseg_por_fechas, Reporte_aseg_por_fechas);
  Application.CreateForm(TReporte_aseg_reingresos, Reporte_aseg_reingresos);
  Application.CreateForm(TF_Selec_rep_citas, F_Selec_rep_citas);
  Application.CreateForm(TReporte_Citas_general, Reporte_Citas_general);
  Application.CreateForm(TReporte_citas_a, Reporte_citas_a);
  Application.CreateForm(TReporte_citas_d, Reporte_citas_d);
  Application.CreateForm(TF_Buscar_Aseg, F_Buscar_Aseg);
  Application.CreateForm(TReporte_Consulta_medica, Reporte_Consulta_medica);
  Application.CreateForm(TReporte_HC, Reporte_HC);
  Application.CreateForm(TF_Selec_Rep_HC, F_Selec_Rep_HC);
  Application.CreateForm(TReporte_Listado_Consultas, Reporte_Listado_Consultas);
  Application.CreateForm(TReporte_Consultas_nuevos, Reporte_Consultas_nuevos);
  Application.CreateForm(Treporte_consultas_nuevos1, reporte_consultas_nuevos1);
  Application.CreateForm(TReporte_nro_consultas, Reporte_nro_consultas);
  Application.CreateForm(TReporte_listado_consultas1, Reporte_listado_consultas1);
  Application.CreateForm(TReporte_Hospitalizaciones, Reporte_Hospitalizaciones);
  Application.CreateForm(TReporte_Hospitalizaciones1, Reporte_Hospitalizaciones1);
  Application.CreateForm(TReporte_Ex_Lab, Reporte_Ex_Lab);
  Application.CreateForm(TReporte_Ex_Lab1, Reporte_Ex_Lab1);
  Application.CreateForm(TReporte_EstudiosC, Reporte_EstudiosC);
  Application.CreateForm(TReporte_EstudiosC1, Reporte_EstudiosC1);
  Application.CreateForm(TReporte_Listadogral_doctor, Reporte_Listadogral_doctor);
  Application.CreateForm(TReporte_Listadogral, Reporte_Listadogral);
  Application.CreateForm(TF_rep_registros, F_rep_registros);
  Application.CreateForm(TReporte_Medicos, Reporte_Medicos);
  Application.CreateForm(TReporte_Hospitales, Reporte_Hospitales);
  Application.CreateForm(TReporte_Farmacias, Reporte_Farmacias);
  Application.CreateForm(TReporte_Laboratorios, Reporte_Laboratorios);
  Application.CreateForm(TReporte_Centros, Reporte_Centros);
  Application.CreateForm(TF_Selec_Rep_Act, F_Selec_Rep_Act);
  Application.CreateForm(TReporte_Act_Estudios, Reporte_Act_Estudios);
  Application.CreateForm(TReporte_act_examenes, Reporte_act_examenes);
  Application.CreateForm(TReporte_act_h, Reporte_act_h);
  Application.CreateForm(TReporte_Carnet, Reporte_Carnet);
  Application.CreateForm(TF_reasegurados1, F_reasegurados1);
  Application.CreateForm(TF_pres_doctor, F_pres_doctor);
  Application.CreateForm(TF_pres_fichaje, F_pres_fichaje);
  Application.CreateForm(TF_Busqueda_Cons, F_Busqueda_Cons);
  Application.CreateForm(TReporte_Recetas, Reporte_Recetas);
  Application.CreateForm(TReporte_recetas1, Reporte_recetas1);
  Application.CreateForm(TF_select_rep_egr_med, F_select_rep_egr_med);
  Application.CreateForm(TReporte_Proveedores, Reporte_Proveedores);
  Application.CreateForm(TReporte_Saldo_Medicamentos, Reporte_Saldo_Medicamentos);
  Application.CreateForm(TReporte_Stock_Minimo, Reporte_Stock_Minimo);
  Application.CreateForm(TReporte_Egreso_Med_Mes, Reporte_Egreso_Med_Mes);
  Application.CreateForm(TReporte_Egresos_por_fechas, Reporte_Egresos_por_fechas);
  Application.CreateForm(TReporte_Ing_med_mes, Reporte_Ing_med_mes);
  Application.CreateForm(TF_Select_kardex_fisico, F_Select_kardex_fisico);
  Application.CreateForm(TReporte_Kardex_Fsico_Med, Reporte_Kardex_Fsico_Med);
  Application.CreateForm(TReporte_Kardex_Valorado_Med, Reporte_Kardex_Valorado_Med);
  Application.CreateForm(TF_Busqueda_Saldo_Med, F_Busqueda_Saldo_Med);
  Application.CreateForm(TF_Busqueda_Nro_Receta, F_Busqueda_Nro_Receta);
  Application.CreateForm(TF_Saldo_Med, F_Saldo_Med);
  Application.CreateForm(TReporte_Mov_Fisico_Valorado, Reporte_Mov_Fisico_Valorado);
  Application.CreateForm(TF_Select_mov_fiscovalorado, F_Select_mov_fiscovalorado);
  Application.CreateForm(TF_Pres_farmacia, F_Pres_farmacia);
  Application.CreateForm(TF_Buscar_Est_compl, F_Buscar_Est_compl);
  Application.CreateForm(TF_Busqueda_Hosp, F_Busqueda_Hosp);
  Application.CreateForm(TF_busqueda_examenes, F_busqueda_examenes);
  Application.CreateForm(TReporte_Mes_Estudios, Reporte_Mes_Estudios);
  Application.CreateForm(TReporte_Mes_Examenes, Reporte_Mes_Examenes);
  Application.CreateForm(TReporte_Mes_Hosp, Reporte_Mes_Hosp);
  Application.CreateForm(TReporte_Excedentes, Reporte_Excedentes);
  Application.CreateForm(TReporte_Descuento_Farmacia, Reporte_Descuento_Farmacia);
  Application.CreateForm(TF_Seguridad, F_Seguridad);
  Application.CreateForm(TF_Coneccion, F_Coneccion);
  Application.CreateForm(TProceso, Proceso);
  Application.CreateForm(TF_Selec_rep_seguridad, F_Selec_rep_seguridad);
  Application.CreateForm(TReporte_Listado_Gral_seguridad, Reporte_Listado_Gral_seguridad);
  Application.CreateForm(TReporte_Seguridad_Usuario, Reporte_Seguridad_Usuario);
  Application.CreateForm(TF_Pres_Conta, F_Pres_Conta);
  Application.CreateForm(TF_Pres_Seguridad, F_Pres_Seguridad);
  Application.CreateForm(TF_Tipo_Asiento1, F_Tipo_Asiento1);
  Application.CreateForm(TF_SAM, F_SAM);
  Application.CreateForm(TF_Selec_presupuestos, F_Selec_presupuestos);
  Application.CreateForm(TF_TipoCambio, F_TipoCambio);
  Application.CreateForm(TF_Select_Balance, F_Select_Balance);
  Application.CreateForm(TF_Enviar_mails, F_Enviar_mails);
  Application.CreateForm(TF_Registro_Receta, F_Registro_Receta);
  Application.CreateForm(TF_Buscar_asegurado, F_Buscar_asegurado);
  Application.CreateForm(TF_Busqueda_Beneficiario, F_Busqueda_Beneficiario);
  Application.CreateForm(TF_Select_reportes_fichaje, F_Select_reportes_fichaje);
  Application.CreateForm(TReporte_Asegurados, Reporte_Asegurados);
  Application.CreateForm(TReporte_Aseg_Tolerancia, Reporte_Aseg_Tolerancia);
  Application.CreateForm(TReporte_Benef_19, Reporte_Benef_19);
  Application.CreateForm(TF_Buscar_Centros, F_Buscar_Centros);
  Application.CreateForm(TReporte_Aseg_Documentos, Reporte_Aseg_Documentos);
  Application.CreateForm(TRep_Generall, Rep_Generall);
  Application.CreateForm(TReporte_Benef_19d, Reporte_Benef_19d);
  Application.CreateForm(TReporte_Codigos, Reporte_Codigos);
  Application.CreateForm(TReporte_Mes_Farmacia1, Reporte_Mes_Farmacia1);
  Application.CreateForm(TF_Descuentos_Med, F_Descuentos_Med);
  Application.CreateForm(TF_Validacion, F_Validacion);
  Application.CreateForm(TReporte_Visualizar, Reporte_Visualizar);
  Application.CreateForm(TF_Informe_Mensual, F_Informe_Mensual);
  Application.CreateForm(TReporte_Control_M, Reporte_Control_M);
  Application.CreateForm(TReporte_Tratamiento, Reporte_Tratamiento);
  //SplashScreen.Hide;
  //SplashScreen.Free;
  Application.Run;
end.

estaba utillizando un splahscreem pero por la ayuda q me brindaste lo puse como comentario y luego de eso al salir de la aplicacion me marca lo siguiente dentro de la unidad OleCtrls:

Código Delphi [-]
if FOleObject <> nil then FOleObject.Close(OLECLOSE_NOSAVE);

por la ayuda q me brindaste puedo decir q el problema se causo por el splashcreen pero ahora como puedo solucionarlo ???
Nuevamente muchas gracias Lepe y amigos del foro por la ayuda q me brinden