РАскрасить строки ListViev.

[Aleksandr]

Вот рабочий код

procedure TPhoneBook.PhonesCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  i:integer;
 PhonesItem: TListItem;
   begin
   for i:=0 to Phones.Items.Count-1 do
   begin
   PhonesItem := Phones.Items[i];
 with Sender.Canvas.Brush do
   begin
    if item.SubItems[9]='долг' then
     Color:=clRed
     else
     Color:=clGreen;
 end;
end;