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;