Создание VCL компонента (Delphi 7)

Необходимо VCL компонент для instant messenger чата (типа ICQ).

Из файла в аттаче все понятно.

Описание:

Компонент(TCollection) состоит из N блоков(TCollectionItem,сообщений), каждый из которых имеет следующие св-ва:

1. DateTime:TdateTime - время получения сообщения(которое на примере скриншота из миранды видно в рамках слева), причем если это текущий день, то указывается время, если нет, то день и месяц

2. Direction:set (tIn,tOut) - указание входящее ли сообщение или исходящее

3. ImageList(TCollection TBitmap'ов) - набор картинок, которые могут быть использованы в сообщении. Не TImageList, потому что размеры картинок могут быть разными.

3. Text(string) - соответственно текст сообщения. В тексте могут встечатся конструкции , и.т.д., заместо которых должно быть подставленно соответствующее изображение из ImageList.

Сам компонент:

1. InColor, OutColor(TColor) - цвета фона для сообщений входящих и исходящих.

2. Wrap(boolean) - автоперенос строк, если false, то может появлятся гор. прокрутка.

3. PopupMenu - TPopuMenu - тут все понятно, единственное, что должен быть способ, чтобы после вызова меню можно было узнать на каком элементе был сделан клик правой кнопкой.

Бюджет: $50-$80. Все вопросы в ICQ.