Colorir Linha Dbgrid Itens Repetidos

procedure TfrmCompararXml.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    with DBGrid1 do
      begin
          cdsCompararXml.Close;
          cdsCompararXml.CommandText := 'select P_BARRAS1 from PRODUTOS group by P_BARRAS1 having Count(P_BARRAS1)>1';
          cdsCompararXml.Open;
      end;
    DBGrid1.Canvas.Font.Color := clRed;
    DBGrid1.DefaultDrawColumnCell( Rect, DataCol, Column, State);
end;