ICQ Status...mal wieder^^

[Chaismo]

naja einloggen klappt ja super aber die Kontaktliste wird jetzt nichtmehr gealden
Hier der Code den hab ich aus den Examplen aus der TICQLib und hab ihn noch etwas bearebiett:

Delphi-Quellcode:

procedure TForm1.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i: Integer;
  UserInfo: TUINEntry;
begin
  Statusbar1.panels[2].text:='Lade Kontatliste';
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
    begin
      UserInfo := PUINEntry(SrvContactList.Items[i])^;
      if UserInfo.CType = U_VISIBLE_LIST then
        ICQClient1.VisibleList.Add(IntToStr(UserInfo.UIN)) end
      else if UserInfo.CType = U_INVISIBLE_LIST then
        ICQClient1.InvisibleList.Add(IntToStr(UserInfo.UIN))
      else if UserInfo.CType = U_NORMAL then
      begin
        if ICQClient1.AddContactvisible(UserInfo.UIN) then
        begin
          If UserInfo.UIN>0 then begin
              ListBox1.Items.Add(UserInfo.Nick);
              icqnummer.Items.Add(IntToStr(UserInfo.UIN));
              Combobuddys.Items.Add(Userinfo.nick)
          end;
          end;
      end;
  Statusbar1.panels[2].text:='Kontaktliste fertig geladen';
  ICQClient1.DestroyUINList(SrvContactList);
end;

Also müsste doch eigentlich gehn aber irgendwie doch ni
Vieleicht wisst ihr genaueres?