anchor.diff:                  try
                     System.Val(S1, ValD, Code);
                     Value := Round(ValD);
  +                  Result := True;
                   except
                   end;
               end;
  
positive.code:             GetCh;
            end;
  
        StrToInteger(S, Val);
  
        if (Sym = IDSy) and (S <> '') and Assigned(PropStack.MasterList) and not LinkSearch then
          PropStack.MasterList.AddChPosObjectToIDNameList(S, PropStack.SIndex);
  
negative.code:         Sy := SaveSy;
        end;
  
        function StrToInteger(const S: ThtString; var Value: Integer): Boolean;
        var
          S1: ThtString;
          I, Code: Integer;
          ValD: Double;
        begin
          Result := False;
          S1 := Trim(S);
          I := Length(S1);
          if I > 0 then
  