anchor.diff:      Result:= UnicodeToUTF8(code)
     else
     if code>=0 then
  -    Result:= EncConvertToUTF8(Chr(code), EncConvFindEncodingByName(GetCodepage))
  +    Result:= EncConvertToUTF8(Chr(code), FEncodingId)
     else
       Result:= '';
   end;
  
positive.code:   i, j, code: integer;
  begin
    FUnicodeMode:= false;
    comboAnsi.Visible:= not FUnicodeMode;
    comboUnicode.Visible:= FUnicodeMode;
    chkHexTitle.Enabled:= true;
  
negative.code:     FUnicodeMode: boolean;
      FUnicodeBegin: integer;
      FHexTitles: boolean;
      FEncodingId: TEncConvId;
      function CodeToString(code: integer): string;
      function DoGetCode(aCol, aRow: integer): integer;
      procedure DoShowAnsi;
  