проблема с TListView

[Dee63]

Всем привет!
Вообщем в ListView у меня выводятся результаты запроса SQL. Выводит все правильно.
Мне надо сделать так, чтобы при определенном значении в ячейке вся строка меняла цвет.
Задача не новая. Сделал.

procedure TForm.CListCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with CList.Canvas.Brush do
   begin
     if item.SubItems.ValueFromIndex[8]='1' then
       Color := clMoneyGreen
     else
       Color := clGray;
     end;
end;

Все просто и все яснопонятно.
НО!
в 8 ячейке у меня значение выводится 2, а строка не закрашивается.
Полез выяснять.
в итоге сделал в этой процедуре вывод

showmessage(item.SubItems.ValueFromIndex[8]);

и получил пустоту 0_о

Полез дальше. Сделал так, чтоб вывод был не 2, а 22. В самом листе выводится 22 (все норм), а выводе месседжа я получаю 2. т.е. эта зараза теряет первый символ, если таким образом получать доступ.

Ну и соответственно следом вопрос.
ок, он получает 2, должен попадает в условие, по которому если не 1, то закрасить серым.
Что я получаю в итоге? ничего! Не закрашивается, хотя в дебаге смотрю- туда попадает и цвет присваивает.
А вот если оставить вывод showmessage, то цвет пририсовывает.

Что за хрень и как исправить кто скажет?

[Dee63]

Сам отвечу на свой вопрос.
1. я использовал TListView из AlphaTools. Видимо оно бажное.
2. обрабатывать надо иначе.

Как правильно у меня заработало:
1. Использовал стандартный TListView в режиме vsReport
2. обрабатывал вот так:

procedure TClientListForm.ClientListCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  with ClientList.Canvas.Brush do
    begin
     if item.SubItems.Strings[8]='1' then
      Color := clMoneyGreen
     else
      Color := clGray;
     end;
end;

И естественно никаких косяков с потерявшимся первым символом нет.