[Dronik]

Код:

var
    FullReloadContactList: Boolean;
.....

procedure TuimMain.ICQClient1ServerListRecv(Sender: TObject; SrvContactList: TList);
var
  i : LongInt;
  UserInfo: TUINEntry;
  UINNickItem : PUINNickItem;
begin
  if FullReloadContactList then
    begin
      FullReloadContactList := False;
      uimCList.Clear;
      UINNickList.Clear;
    end;
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
      begin
        UserInfo := PUINEntry(SrvContactList.Items[i])^;
          if UserInfo.CType =  BUDDY_NORMAL then
                begin
                      uimCList.AddItem(UserInfo.Nick, Self);
                      GetMem(UINNickItem, SizeOf(UINNickItem^));
                      UINNickItem^.Nick := UserInfo.Nick;
                      UINNickList.Add(UINNickItem);
                 end;
          end;
      end;
  UIM.DestroyUINList(SrvContactList);
end;

попробуй так, у меня этот код работает