Tal vez la clase de error no sea "EloginFailed"...
prueba utilizar:
Código Delphi
[-]
try
Connected:=True;
Form1.Show; except on E:Exception do
ShowMessage(E.ClassName+ ' - '+ inttostr(E.ErrorCode)+' - '+E.Message);
end;
Esto para ver la clase del error y posiblemente ver el número de error, para poder capturar específicamente ese error.