nastya.e

Скорее всего вам нужно поменять параметр Store Code Completion information (почитать можно тут)

Геннадий, спасибо большое, проблема решена. Значение было выставлено по умолчанию Store brief Code Completion data, отключила Store Code Completion information - Do not store Code Completion data. Размер NameMapping сократился до 7 Мбайт. 

modbear, спасибо большое за совет.
 
На основании вашего кода  написала для DelphiScript, возможно кому-то ещё пригодится, поэтому оставлю здесь.

function SetDefaultPrinter;
var Locator, WmiService, Res, PrinterName;
begin
  Locator: = Sys.OleObject ('WbemScripting.SWbemLocator');
  WmiService: = Locator.ConnectServer ('.', 'root\cimv2', '', '');
  PrinterName := 'Microsoft XPS Document Writer'; // Имя принтера в Devices & Printers
  
  try
    begin
      Res := WmiService.Get('Win32_Printer.DeviceID='+#39+'' + PrinterName + ''+#39+'').SetDefaultPrinter;
      result := True;
      if Res <> 0 then
        begin
          Log.Error(aqString.Format('Could not set the default printer', Res, aqUtils.SysErrorMessage(Res)));
          result := False;
        end;
    end;
  except
    begin
      Log.Error(aqString.Format('Error ', ExceptionMessage));
      result := False;
    end;
  end;
end;