собственно, проблема в том, что ты отлавливаешь только сообщения об ошибках протокола. при этом, если просто сервер не существует, то ты получаешь другой класс исключения, который не обрабатывается. Надо:
Код:
For I := 0 To AList.Count-1 Do
Try
CheckAccount(AList[i]);
Memo1.Lines.Add(AList[i]);
Except
Memo2.Lines.Add(AList[i]);
End;
Код приблизительный. CheckAccount - процедура, которая пытается проверить учетную запись. AList - некоторый список с учетками. Memo1 - список "хороших" учеток, Memo2 - список "плохих" учеток.