procedure addcontacttolist(uin, sName: string, id: integer);
begin
with form1.ICQClient1 do
begin
SSLActivate;
SSLChangeStart(false);
SSLAddGroup('My Good Friends', 0010); //Добавляем новую группу
SSLAddUser(0010, id, uin, sName, '', true, false);
SendAuthRequest(StrToInt(Uin), 'Авторизируйте меня ;)');//отправим запрос авторизации (если требуется)
SendAuthResponse(StrToInt(Uin), True, '');//скажеи об успешной авторизации
SendYouWereAdded(StrToInt(Uin));//отправим ответ об успешном добавлении в список
SSLChangeEnd;
end;
end;