ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Пишу маленькую программку в которой нужно отсылать сообщение "Вас добавили"
Используется: ICQClient(от кабана, самый новый, загрузил с асечки)
Суть проблемы: Идёт отсылка "Вас добавили", в таймере, отсылка идёт с определённого номера, как приходит время менять номер(отключать старый), приложение зависает и выдаёт ошибку, подчёркивая это в коде компонента WSokcet

Код:

procedure TCustomWSocket.RaiseException(const Msg : String);
begin
    if Assigned(FOnError) then
        TriggerError                 { Should be modified to pass Msg ! }
    else
        raise ESocketException.Create(Msg);
end;

Подскажите как исправить, пожалуйста.