procedure TFrm_Main.DrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Odd(Item.Index) then
  begin
    Sender.Canvas.Brush.Color := clCream;
   // Sender.Canvas.Font.Color := clGray;
  end; 
end;