anchor.diff:      function GetIsDebugVisible: Boolean;   // I4557
       function ShouldShowLanguageControls(field: TSystemStore): Boolean;
       procedure OrderDetailsPanels;
  +    function ValidateFileHasNoUnicodeCharacters(sw: WideString): Boolean;
   
     protected
       function GetHelpTopic: string; override;
  
positive.code:   Result := (pages.ActivePage <> pageLayout) or (pagesLayout.ActivePage <> pageLayoutCode);
  end;
  
  function TfrmKeymanWizard.DoSaveFile: Boolean;
  var
    sw: WideString;
    FEncoding: TEncoding;
    FKey: TKeyboardParser_FeatureID;
  begin
    Result := False;
  
  
negative.code:         tffUTF16: FEncoding := TEncoding.Unicode;
          else raise Exception.Create('Invalid encoding');
        end;
  
        with TStringList.Create do  // I3337
        try
          Text := sw;
  