Error al conectar con BD
 

¡Hola amigos! le comento que después de lograr hacer que la applicación que desarrollo se cierre si no se logra conectar con la base de datos, me sale un error cuando se conecta, el error es el siguiente:

el código que utilizo para cerrar la app si no hay coneción es el sgte:

Código Delphi [-]
 
begin
   {Si existe otra instancia ya ejecutandose, la activamos}
   RvHandle := FindWindow(NIL,'cpaf.exe');
   if RvHandle > 0 then
   begin
     PostMessage(RvHandle, CM_RESTORE, 0, 0);
     Exit;
   end;
   {Sino, haz lo normal}
   Application.Initialize;
   frmSplash := TFrmsplash.Create(Application);
   try
     frmsplash.Show;
     frmsplash.Update;
     Application.Title := 'cpaf.exe';
     Application.CreateForm(Tfrmmain, frmmain);
     Application.CreateForm(Tdmcpaf, dmcpaf);
     frmsplash.Hide;
   finally
     frmsplash.Free;
   end;
   if dmcpaf.MDODbcpaf.Connected = false then
   begin {si no se conecta a la BD se muestra un mensaje y se cierra al app}
     showmessage('No se puede conectar a la base de datos.'+#13+'La aplicación se va a cerrar.');
     application.Terminate;
   end;
   Application.Run;
 end.

La verdad no se que pueda ser, además no sé a que parámetro se refiere el error, no creo que se refiera al user y pass porque cóloco ambos para la conexión.

Una cosa más (esta va de contrabando), quiero interceptar el error que me muestra la BD al no haber conexión, para que así no se muestre y sólo se muestre mi mensaje.

Por cierto, utilizo Firebird 1.5 y Delphi 7 con componentes MDO

Espero puedan darme una ayuda para resolver mi problema.

Saludos desde Tacna - Perú