ListView. Изменить цвет текста SubItems[0]

[Shouldercannon]

Доброго времени суток!
Есть ListView. Заполняется следующим образом:

var
  Item: TListItem;
begin
  Item := LVUsers.Items.Add;
  Item.Caption := '';
  Item.SubItems.Add('Nick');
  Item.SubItems.Add('ID');
  Item.SubItems.Add('1'); // Статус

Хочу изменять цвет текста SubItems[0] (Nick) в зависимости от значения статуса.
Делаю так

procedure TForm26.LVUsersCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.SubItems[2] = '0' then Sender.Canvas.Font.Color := $000000E6 else Sender.Canvas.Font.Color := clBlue;
end;

Тут возникли вопросы:
1. Для чего нужно CustomDrawSubItem
2. Почему постоянно (каждую секунду) в Runtime идёт обращение к

if Item.SubItems[2] = '0' then Sender.Canvas.Font.Color := $000000E6 else Sender.Canvas.Font.Color := clBlue;

после добавления записи. Приложение не подвисает, но всё равно напрягает этот факт.

[Stilet]

Для чего нужно CustomDrawSubItem

Occurs when a subitem must be rendered in an owner-draw list view.

Тут еще поможет чтение про свойство OwnerDraw.

[Shouldercannon]

Ответ на второй вопрос.
Обращение идёт потому-что курсором водим по данным а ListView или скроллинг списка делаем делаем

[Stilet]

Отрисовка. И почему ты решил что именно каждую секунду? Скрой окно. Для эксперимента вниз за экран сдвинь эти строки, чтоб их не было видно - на них не будет тратиться время выполнения.