if Item.SubItems.Strings[0] = 'bbbbb' then Sender.Canvas.Brush.Color:= clRed; Sender.Canvas.FillRect(Item.DisplayRect(drIcon));
