Скопированный код не работает

[Mrsqler]

В общем пытаюсь получить список контактов для клиента ICQ.Используется компонент TICQClient.Как получить контакты не знал,полез во всемогущий гугл и нашел небольшой пример,он работает.
Я скопипастил оттуда код в свой проект,программа скомпилировалась без проблем,но список контактов не приходит,т.е происходит коннект и всё,а списка нету А в том проекте который скачал,всё ок.
Может кто-нибудь посмотреть в код и сказать что я не так сделал?Заранее спасибо!
Свой,и скаченный проекты прилагаются.

[BDA]

Во-первых, где "скачанный проект" получает список контактов?
Во-вторых, как можно скомпилировать ваш проект, если вы использовали нестандартные компоненты?

[Человек_Борща]

Между примером и реально рабочим кодом, есть очень большая пропость не только в плане стабильности и актуальности, но и в плане понимания.

Заканчивайте бездумно копировать и начинайте думать головой.

Вот на досуге, прочитайте эту статью: http://www.gunsmoker.ru/2010/05/blog-post_25.html и эту http://www.gunsmoker.ru/2010/05/90.html

Очень отрезвляет мысли от идеи бездумного копипаста.

[Mrsqler]

А где там большая пропасть-то? Список получаем в процедруе

procedure TForm1.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);

Авторизация тоже почти такая же.

[BDA]

Где в скачанном проекте получают список?
Там есть только вот какие процедуры:

procedure FormCreate(Sender: TObject);
    procedure ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ICQClient1Login(Sender: TObject);

Что вы пытаетесь скопировать из него, если в нем такого нету?

[Mrsqler]

Сообщение от BDA

Где в скачанном проекте получают список?
Там есть только вот какие процедуры:

    procedure ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);

Что вы пытаетесь скопировать из него, если в нем такого нету?

Где вы взяли процедуру ?
procedure ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);

Я её вообще в скаченном не нашел нигде.

[BDA]

Очень странно, что не нашли

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
LogFile: TextFile;
ICQ: Cardinal;
begin
icq := StrToInt(UIN);
Memo1.Lines.Add(UIN + ': ' + Msg);
if Msg=Edit2.text then
ICQClient1.SendMessage(icq, Edit3.text)
else
ICQClient1.SendMessage(icq, Edit1.Text);
if checkbox1.Checked=true then
ICQClient1.SendMessage(StrToInt(UIN), ' '+ Msg);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ICQClient1.UIN:=StrToInt(Edit4.Text);
ICQClient1.Password:=Edit5.Text;
icqclient1.Login();
end;

[Mrsqler]

Этого не может быть))

if checkbox1.Checked=true then
ICQClient1.SendMessage(StrToInt(UIN), ' '+ Msg);
end;

Ни в одном из проектов не присутствует объект checkbox.
Короче,я сделаю проще)Свой код вставлю в тот проект,в котором уже работает получение контактов,а остальное допишу )