["Hatchet" Harry]

Изв, что бесцеремонно врываюсь в чужой топик, но тут такой мелкий вопросик возник по TICQClient'у. Как отловить блокировку фаерволом (программным) TICQClient'а\Программы при попытке логина (событие OnError в TICQClient'е не канает).Т.е. есть какая-то процедура в которой TICQClient совершает логин на icq сервер и вот нужно отследить блок фаерволом, и если он есть то выполнить Exit (выход из процедуры).

[treiv]

У меня следующий вопрос. пишу icq бота на delphi вот кусок кода

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
answ : string;
line : integer;
i : integer;
begin
line := -1;
for i := 0 to base.Count - 1 do
if pos(Msg, base.Strings[i]) <> 0 then
begin
line := i;
Break;
end;
answ := base.Strings[Line];
Delete(answ, 1, Pos('=', answ));
AddEvent('['+TimeToStr(Time)+']'+ ' | '+ UIN + Crlf + Msg);

if base.Count >= -1 then
ICQClient1.SendMessage(StrToInt(UIN), 'команды нет') ;

Вродже работет ищет по базе команды. В текстовом файле заисаны команды так
1=команда номер1
привет=ну привет
3=команда 3
то есть то что перед равно это команда которую бот должен обработать и выслать ответ после = работает но не правильно если например этой команды нет выдает ошибку что то Etstringerror lines -1 что то в этом роде помогите решить проблему((