ListView перекрашивание строки!

[CrystalDF]

Еще один вопросик
Хотел бы всю строку где написано слово "Возврат" пометить красным цветом.
Я пробовал так сделать, но тут что-то не так.
Условие не знаю какое реализовать.

Код:

procedure TAIBook.lv1DrawItem(Sender: TCustomListView; Item: TListItem;
  Rect: TRect; State: TOwnerDrawState);
var i:integer;
var ListItems : TListItems;
begin
 with Sender do
  for i:=0 to length(Item.Caption) do begin
    if lv1.ListItems('Âîçâðàò') then canvas.Pen.Color:=clred else canvas.Pen.Color:=clblack;
    Canvas.TextOut(rect.Left+i+Canvas.TextWidth('W'),Rect.Top,Item.Caption[i]);
  end;
end;

[Stilet]

procedure TAIBook.lv1DrawItem(Sender: TCustomListView; Item: TListItem;
  Rect: TRect; State: TOwnerDrawState);
var i:integer;
var ListItems : TListItems;
begin
 if Item.Caption<>'Возврат' then exit;
    with Sender.canvas do begin
     Pen.Color:=clred;
     TextOut(rect.Left,Rect.Top,Item.Caption[i]);
    end;
  end;
end;

[Slym]

что-то по параметрам у меня не сходится... у меня есть DefaultDraw

procedure TForm1.lv1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var i:Integer;
begin
  for i:=0 to Item.SubItems.Count-1 do
    if SameText(Item.SubItems[i],'Возврат') then
    begin
      Sender.canvas.Font.Color:=clred;
      Break;
    end;
  DefaultDraw:=True;
end;

или

procedure TForm1.lv1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if SameText(Item.SubItems[SubItem-1],'Возврат') then
    Sender.canvas.Font.Color:=clred
  else
    Sender.canvas.Font.Color:=clBlack;
end;

[CrystalDF]

Эти 3 варианта не помогают, не красится к красный (

[CrystalDF]

var i:Integer;
var DefaultDraw: Boolean;
begin
  for i:=0 to Item.SubItems.Count-1 do
    if SameText(Item.SubItems[i],'Возврат') then
    begin
      Sender.canvas.Font.Color:=clred;
      Break;
    end;
  DefaultDraw:=True;
end;

И так пробую не получается

[Аватар]

function FindText(Item: TListItem; Text: String): Boolean;
var i: Integer;
begin
  Result:=AnsiSameText(Item.Caption,Text);
  if not Result then
    for i:=0 to Item.SubItems.Count-1 do begin
      Result:=AnsiSameText(Item.SubItems[i],Text) and (i<TListView(Item.ListView).Columns.Count);
      if Result then Exit;
    end;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if FindText(Item,'Возврат') then Sender.canvas.Font.Color:=clred
                              else Sender.canvas.Font.Color:=clBlack;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if FindText(Item,'Возврат') then Sender.canvas.Font.Color:=clred
                              else Sender.canvas.Font.Color:=clBlack;
end;

[Slym]

у тебя не стандартный TListView походу
у стандартного декларация для CustomDrawItem под delphi 7 такая

procedure CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);

т.е. в параметрах есть DefaultDraw
колись что за компонент...