ICQClient и ListView

void __fastcall TForm1::Button1Click(TObject *Sender)
{
GetLocalTime(&s);
if(Edit1->Text == "" || Edit2->Text == "")
Memo1->Lines->Add(IntToStr(s.wHour)+":"+IntToStr(s.wMinute)+":"+IntToStr(s.wSecond)+" - Ошибка : Вы не ввели номер или пароль.");
else
{
Memo1->Lines->Add(ICQClient1->ICQServer + ":" + ICQClient1->ICQPort);
Memo1->Lines->Add(IntToStr(s.wHour)+":"+IntToStr(s.wMinute)+":"+IntToStr(s.wSecond)+" - "+Edit1->Text + " : Попытка соединения.");

int a = StrToFloat(Edit1->Text);
ICQClient1->UIN = (__int32)a;
ICQClient1->Password = Edit2->Text;
ICQClient1->Login(S_ONLINE);
}
//--------------------
ICQClient1->Login();
//--------------------
void __fastcall TForm1::ICQClient1Login(TObject *Sender)
{
ICQClient1->RequestContactList();
}
//--------------------
void __fastcall TForm1::ICQClient1ServerListRecv(TObject *Sender,
TList *SrvContactList)
{

TUINEntry UserInfo;
for(int i = 0; i < SrvContactList->Count; i++)
{
UserInfo = *PUINEntry(SrvContactList->Items);

if(UserInfo.UIN > 9999)
Memo2->Lines->Add(IntToStr(UserInfo.UIN));
}
ICQClient1->DestroyUINList(SrvContactList);
}