Закрасить SubItem[1] цветом

[Shouldercannon]

Помогите пожалуйста в ListView закрасить SubItem[1] любым цветом.

[Аватар]

procedure TForm1.ListViewDrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var xColor: TColor;
    xRect: TRect;
    i: Integer;
begin
  if (Sender.Selected=Item) and Sender.Focused then xColor:=clActiveCaption
  else if Sender.Selected=Item then xColor:=clBtnFace
  else xColor:=clWindow;
  Sender.Canvas.Brush.Color:=xColor;
  Sender.Canvas.FillRect(Item.DisplayRect(drLabel));
  if (Sender.Selected=Item) and Sender.Focused
    then Sender.Canvas.Font.Color:=clWindow
    else Sender.Canvas.Font.Color:=clWindowText;
  xRect:=Item.DisplayRect(drLabel);
  Sender.Canvas.TextRect(xRect,xRect.Left+2,xRect.Top,Item.Caption);
  for i:=1 to TListView(Sender).Columns.Count-1 do begin
    xRect.Left:=xRect.Right+1;
    xRect.Right:=xRect.Left+TListView(Sender).Columns.Items[i].Width-1;
    if i=2 then Sender.Canvas.Brush.Color:=clRed else Sender.Canvas.Brush.Color:=xColor;
    Sender.Canvas.FillRect(xRect);
    Sender.Canvas.TextRect(xRect,xRect.Left+5,xRect.Top,Item.SubItems[i-1]);
  end;
end;

3 колонки. 2 субитема, OwnerDraw:=True; ViewStyle:=vsReport

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

http://programmersforum.ru/showthread.php?t=63802
гляньте, в частности мои вложения.