Авторизация ICQ[delphi]

Всем привет! Подскажите как средствами TICQClient авторизовывать всех попросившихся?

 

Кто? Где? И каким способом просит? Ты бота делаешь?

 

не проще юзать dll'ку от слэша ?

 

В ней вроде нету такой функции.

 

Да, пытаюсь написать бота... Точнее уже написал, осталась только эта функция

 

marcos, проще сделать так:

Code:

procedure TForm2.AIMClientAddedYou(Sender: TObject; UIN: String); //если тебя добавили
begin
 AIMClient.AddContactVisible(StrToInt(Uin));//добавим и мы этого контакта
 AIMClient.SendAuthRequest(StrToInt(Uin), 'Авторизируйте бота ;)');//отправим запрос авторизации (если требуется)
 AIMClient.SendAuthResponse(StrToInt(Uin), True, '');//скажеи об успешной авторизации
 AIMClient.SendYouWereAdded(StrToInt(Uin));//отправим ответ об успешном добавлении в список
 lstContactList.Items.Add(Uin); //и собственно добавим uin в КЛ
end;