anchor.diff:          tffUTF16: FEncoding := TEncoding.Unicode;
           else raise Exception.Create('Invalid encoding');
         end;
  +
         with TStringList.Create do  // I3337
         try
           Text := sw;
  
positive.code:     FKeyboardParser.AddRequiredLines;
  
      sw := FKeyboardParser.KeyboardText;
  
      for FKey in FKeyboardParser.Features.Keys do
      begin
  
negative.code:   Result := (pages.ActivePage <> pageLayout) or (pagesLayout.ActivePage <> pageLayoutCode);
  end;
  
  function TfrmKeymanWizard.ValidateFileHasNoUnicodeCharacters(sw: WideString): Boolean;
  begin
    if WideString(AnsiString(sw)) <> sw then
    begin
      case MessageDlg('The file '+FileName+' is currently in ANSI format but the '+
          'editor contains Unicode characters that cannot be represented in ANSI and will be lost '+
          'if you continue. Do you want to change the format to UTF-8 to preserve the content?',
          mtWarning, mbYesNoCancel, 0) of
        mrYes: SetTextFileFormat(tffUTF8);
        mrNo: ;
        mrCancel: Exit(False);
      end;
    end;
    Exit(True);
  end;
  
  function TfrmKeymanWizard.DoSaveFile: Boolean;
  var
    sw: WideString;
    FEncoding: TEncoding;
    FKey: TKeyboardParser_FeatureID;
  
  begin
    Result := False;
  
  