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