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