anchor.diff:        begin
           if aDays <> '' then
             aDays := aDays + ', ';
  -        aDays := aDays + '6';
  +        aDays := aDays + '0';
         end
         else
           selection := True;
  
positive.code:     try
        selection := False;
        if aParameterValue.Contains('Zo') then
          aDays := aDays + '0'
        else
          selection := True;
        if aParameterValue.Contains('Ma') then
        begin
          if aDays <> '' then
            aDays := aDays + ', ';
          aDays := aDays + '1';
        end
        else
          selection := True;
  
negative.code:       begin
          if aDays <> '' then
            aDays := aDays + ', ';
          aDays := aDays + '5';
        end
        else
          selection := True;
  