[Amgsys HQ]

Доброго времени суток!

Как видно по заголовку, на форме присутствует ListBox. Задача такая:
отрисовать самому пункты списка, но сделать так, чтобы выбранный
пункт списка был отличного размера от невыделенных (больше) +
добавить на него несколько кнопок. Можно ли такое реализовать?

Использую следующий код, но он не работает:

Код:

procedure MyListBoxMeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
  if Index = TListBox(Control).ItemIndex then
    Height := 50
  else Height := 20;
end;

Заранее спасибо!