[LordRiper]

Prueba con esto:

Código Delphi [-]
try
  DB.Connected:=True;
except
  On E:Exception do
  begin
    Mensaje('Error al conectar con la Base de Datos, error regresado por el servidor: '+E.Message);
  end;
end;