anchor.diff:            n:= Ord(Buffer[i]);
   
             //If control chars present, then non-text
  -          if (n < 32) and not (byte(n) in cAllowedControlChars) then
  +          if IsAsciiControlChar(n) then
             begin
               Result:= False;
               Break
  
positive.code:   TableSize: Integer;
    Str: TFileStream;
    SSign: string;
    IsOEM, IsLE: boolean;
  begin
    Result:= False;
    IsOEM:= False;
    Str:= nil;
    Buffer:= nil;
  
  
negative.code:           Table[i]:= Table[i] * 100 div TableSize;
            if ((i >= $B0) and (i <= $DF)) or (i = $FF) or (i = $A9) then
              if Table[i] >= 18 then
              begin
                //IsOEM:= True;
                Break
              end;
          end;
  
    finally
  