TICQClient Kontaktliste

[mOzZzI]

Hi DP-Freunde,
leider lädt meine Kontaktliste nicht, aus welchem Grund auch immer...
Ich geb euch mal den Code:

Delphi-Quellcode:

procedure TForm1.ICQClient2ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i: Word;
  UserInfo: TUINEntry;
begin
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
    begin
      UserInfo := PUINEntry(SrvContactList.Items[i])^;

      if Length(IntToStr(UserInfo.UIN))= 9 then
        begin
          if ICQClient2.AddContact(UserInfo.UIN) then
            begin
              ComboBox2.Items.Add(userinfo.Nick+' '+inttostr(userinfo.UIN));
            end;
        end;
    end;
  ICQClient2.DestroyUINList(SrvContactList);
end;

Grüße Philipp