anchor.diff:          tffUTF16: FEncoding := TEncoding.Unicode;
           else raise Exception.Create('Invalid encoding');
         end;
  +
         with TStringList.Create do  // I3337
         try
           Text := sw;
  
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:     FKeyboardParser.AddRequiredLines;
  
      sw := FKeyboardParser.KeyboardText;
  
      if (FTextFileFormat = tffANSI) and
        not ValidateFileHasNoUnicodeCharacters(sw) then Exit;
  
      for FKey in FKeyboardParser.Features.Keys do
      begin
  