Manejo de una excepcion EDBEngineError

[Jparra]

Hola,

Necesito manejar una excepcion al tratar de conectarme a una Base de datos:

try
    DataModule1.PixelSQLbase.Connected := True;
    Result := True;
except
  Conectar := False;  
 On EDBEngineError do
     Begin
       DataModule1.PixelSQLbase.Connected := False;
       ShowMessage('ERROR 1:');
     End;
 On EDatabaseError do ShowMessage('ERROR');
     End;
end;

Pero este codigo aun me "EXPLOTA" y cuando vuelvo a ejecutar el proyecto si me tira el mensaje que puse.

He inteentado encontrar un Haddle que pueda funcionar pero no he tenido suerte.