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.