const 
  anzahl = 3; 
 
var 
  farben: array[0..anzahl - 1] of TColor = ($FF80FF, clYellow, clLime); 
 
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; 
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
  ListView1.Canvas.Brush.color := farben[Item.index mod anzahl]; 
end;