anchor.diff:        i := Length( strChopped );
         while ( i <> 0 ) do
         begin
  -        if ( string( strChopped[ i ] ) <> ' ' ) and ( Integer( string( strChopped[ i ] ) ) <> 13 ) then
  +        if ( string( strChopped[ i ] ) <> ' ' ) and ( StrToInt ( string( strChopped[ i ] ) ) <> 13 ) then
             dec( i )
           else
           begin
  
positive.code:       i := Length( strChopped );
        while ( i <> 0 ) do
        begin
          if ( string( strChopped[ i ] ) <> ' ' ) and ( Integer( string( strChopped[ i ] ) ) <> 13 ) then
            dec( i )
          else
          begin
  
negative.code:       i := Length( strChopped );
        while ( i <> 0 ) do
        begin
          if ( string( strChopped[ i ] ) <> ' ' ) and ( StrToInt( string( strChopped[ i ] ) ) <> 13 ) then
            dec( i )
          else
          begin
  