procedure ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
Begin
  //这里可以根据条件来设定每行的字体和颜色，至于什么条件就自己决定了。
  //比如根据项目的图标来判断（我举个例子而已）
  Case Item.ImageIndex Of
    0://图标索引为0的项目
      begin
        //字体为红色
              ListView.Canvas.Font.Color := ClRed;
              //大小为10号字
              ListView.Canvas.Font.Size  := 10;
              //粗体
              ListView.Canvas.Font.Style := [fsBold];
              //背景色为黄色
              ListView.Canvas.Brush.Color := clYellow;
      end;
    1://图标索引为1的项目
      begin
        //字体为蓝色
              ListView.Canvas.Font.Color := ClBlue;
              //大小为9号字
              ListView.Canvas.Font.Size  := 9;
              //普通体
              ListView.Canvas.Font.Style := [];
              //背景色为黄色
              ListView.Canvas.Brush.Color := clWhite;      
      end;
  End;
End;