Try
Componenteconexao.connect;
Except
On E: Exception do
Begin
if pos('EDATABASEERROR', uppercase(E.message)) <> 0 then
Begin
Timer.enable := false;
Showmessage('Falha na conexão com o banco');
end;
End;
end;
Tenta algo assim.