{Пример разсширенного поиска}
procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.SearchWhitePages('','','','',23,29,1,'','Moscow','Russia','','','','','','','','','',false);
//7-ом параметре указывается пол, 1-женский, 2-мужской
//в последнем параметре ставь true если хочешь искать только онлайн
//контакты
end; а вот обработчик:
procedure TForm1.ICQClient1UserFound(Sen der: TObject; UIN, Nick, FirstName,
LastName, Email: String; Status: Word; Gender, Age: Byte; SearchComplete,
Authorize: Boolean);
begin
Memo1.Tag:=Memo1.Tag+1;
Memo1.Lines.Add('---------');
Memo1.Lines.Add('UIN:'+UIN);
Memo1.Lines.Add('Ник:'+Nick);
Memo1.Lines.Add('Имя:'+FirstName);
Memo1.Lines.Add('Фамилия:'+LastName);
Memo1.Lines.Add('Е-Маил:'+Email);
if gender=1 then
Memo1.Lines.Add('Пол: :Жен.') else
Memo1.Lines.Add('Пол: :Муж.');
if Authorize then
Memo1.Lines.Add('Пользователь требует авторизации') else
Memo1.Lines.Add('Пользователь не требует авторизации');
if SearchComplete then
Memo1.Lines.Add(#13+'>>>>>>>>>>>Complete<<<<<<<<<< ');
Memo1.Lines.Add('Найдено '+IntToStr(Memo1.Tag)+' пользователей');
end;
