anchor.diff:          Sy := SaveSy;
         end;
   
  -      procedure StrToInteger(const S: ThtString; var Value: Integer);
  +      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
  
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:                 try
                    System.Val(S1, ValD, Code);
                    Value := Round(ValD);
                    Result := True;
                  except
                  end;
              end;
  