ListView Zebrado

vamos criar um ListView zebrado utilizando o evento onCustomDrawItem:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem;   State: TCustomDrawState; var DefaultDraw: Boolean);

begin
    with ListView1.Canvas.Brush do
    begin
      if (Item.Index mod 2) = 0 then
        Color := clYellow
      else
        Color := clWhite;
   end;

end;