[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