Выделить цветом слово в ListView

[garuna]

Нужно получить примерно такой эффект как на скрине, т.е. чтобы определенные слова в третьем столбце были выделены цветом. Подскажите, пожалуйста, возможно ли это сделать и каким образом.





Пробовал так, но закрашивается вся строка:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem;
  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 if Pos('[Top]', Item.SubItems[1]) > 0 
 then Sender.Canvas.Brush.Color:= clYellow;
...
end;

[Пепел Феникса]

CustomDraw только.