anchor.diff:  
   procedure TfmCharmaps.comboAnsiChange(Sender: TObject);
   begin
  -  if not FUnicode then
  +  if not FUnicodeMode then
       DoShowAnsi;
   end;
   
  
positive.code:     end;
    {$endif}
  
    if not FUnicode then
      if InitialStr<>'' then
        for i:= 1 to 16 do
          for j:= 1 to 16 do
  
negative.code: 
  function TfmCharmaps.CodeToString(code: integer): string;
  begin
    if FUnicodeMode then
      Result:= UnicodeToUTF8(code)
    else
    if code>=0 then
  