Foros Club Delphi - Problema con captura de error de conexion dbxpress

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:

Código:

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 :cool: