Problema con captura de error de conexion dbxpress

[diegofhernando]

Que tal foristas... pues eso, cuando intento capturar el error de conexion a una bd firebird con dbxpress, la aplicacion se ralentiza demasiado, quisiera que solo intentara conectar 1 vez y me permitiera detener el proceso de conexion para mostrar al usuario un messagebox donde pueda intentar conectar manualmente de nuevo, el codigo que estoy usando es el siguiente:

procedure Tdata.DoConnect;
begin
Data.g_database.Params.Values['Database']:= DBPath; // variable con ruta de la BD
Data.g_database.Params.Values['User_Name']:= 'SYSDBA';
Data.g_database.Params.Values['Password']:= 'masterkey';
Data.g_database.Params.Values['ServerCharSet']:= 'ISO8859_1';
Data.g_database.Params.Values['DriverName']:= 'Interbase';
    try
    Data.g_database.Connected:= true;
    except
    begin
    Data.g_database.Connected:= false;
          application.MessageBox('No se pudo establecer conexión con la base de datos.', 'ERROR', mb_ok + mb_iconerror); //cambiaria este msg para permitir al usuario intentar reconectar
    end;
    end;
end;

Como siempre, agradezco su tiempo y por supuesto su colaboracion.


Salu2