改变ListView颜色

procedure TQueryForm.ListViewCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  inherited;
  DefaultDraw:=false;

  if ((item.Index )mod 2)=0 then
        begin
          TListView(Sender).Canvas.Brush.Color := RGB(224, 224, 224);
          //TListView(Sender).Canvas.Font.Color := clred;
        end;
    DefaultDraw:=true;
end;