TICQClient получение сообщения

[Rec0il]

Здравствуйте. Пишу небольшой, простенький аналог аськи...
Сделал вход по номеру и паролю, отправку сообщений, контакт лист.
Есть пара вопросов.

1) Как сделать так, что бы программа могла получать сообщения?
2) Есть Listbox, в нем показан список контактов? пример:
Вася(112112221)
Петя(123123123)
так же есть Edit, в него нужно вписывать номер получателя. Мне надо что бы при щелчке на какой либо контакт в ListBox`e, его номер появлялся в Edit`e. Только номер, без логина и скобок.


Заранее благодарю за помощь!

[Rec0il]

С получением сообщения я разобрался сам.

PHP код:

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
Memo2.Lines.Add(TimeToStr(time)+'---'+UIN);
Memo2.Lines.Add(Msg);
end; 


Еще вопрос, как добавить к этому всему, ник отправителя? А то видно что пришло сообщение, написан номер отправителя, а ника нет.

[Rec0il]

Ребята, помогите пожалуйста !
Не хочется парится и выводить в edit то что в скобках листбокса.
Думаю можно сделать проще... Например, 2 контакт листа, один будет всегда скрытый. В скрытом будут только уины, а во втором листбоксе будут и ники и уины.
Хочу привязать их друг к другу, типа:

listbox1.itemindex:=IntToStr(listbox2.itemindex);
edit1.text:=listbox1.itemindex;

Но у меня так не выходит
Задумка такая что бы листбокс 1 сравнивал свою строку со вторым листбоксом, если во втором листбоксе нажата например первая строчка, то и в первом нажималась первая строка. а edit уже берет с первого листбокса (там где только уины).
Помогите реализовать. Не обязательно так, как я описал.

[Lardes]

Посмотри этот исходник