//caso exista mais de um scanner, vai pedir para selecionar.
    if (ImageEnMViewLoad.MIO.TwainParams.SourceCount > 1) then
    begin
      if not (ImageEnMViewLoad.MIO.SelectAcquireSource) then
        Exit;
    end;

    ImageEnMViewLoad.Clear;
    ImageEnMViewLoad.MIO.TwainParams.VisibleDialog := true;
    ImageEnMViewLoad.StoreType := ietNormal;
    ImageEnMViewLoad.MIO.Acquire;

    TrimAppMemorySize;
    if ImageEnMViewLoad.ImageCount > 0 then
    begin
      try
        createTmpDirectoryPDF;
        //gerando pdfStream
        //str := TMemoryStream.Create;
        _fileIn  := _pathTemp + IntToStr(Random(9999)) + '.PDF';
        _fileOut := _pathTemp + IntToStr(Random(9999)) + '.PDF';
        ImageEnMViewLoad.MIO.SaveToFilePDF(_fileIn);

        compressPDF(_fileIn,_fileOut,true);
        //ImageEnMViewLoad.MIO.SaveToStreamPDF(str);
        //str.Position := 0;

        TrimAppMemorySize;

        //carregando pdf para um image de apoio
        ImgLoad.PdfViewer.Enabled := true;
        //ImgLoad.PdfViewer.Document.LoadFromStream(str);
        ImgLoad.PdfViewer.Document.LoadFromFile(_fileOut);

        //caso tenham imagens...
        if (ImgLoad.PdfViewer.PageCount > 0) then
        begin
          //PDFPrint.Document.LoadFromStream(str);
          PDFPrint.Document.LoadFromFile(_fileOut);
          //str.Position := 0;
          ImageEnView1.PdfViewer.Enabled := true;
          ImageEnView1.PdfViewer.ShowAllPages := true;
          if (ImageEnView1.PdfViewer.PageCount > 0) then
            ImageEnView1.PdfViewer.Document.ImportPages(ImgLoad.PdfViewer.Document,PAGE_RANGE_ALL,-1)
          else
            //ImageEnView1.PdfViewer.LoadFromStream(str);
            ImageEnView1.PdfViewer.LoadFromFile(_fileOut);

          refreshPDFViewer;
          updateStatus;
          _Digitalizou := True;
          _Sair := False;
        end;
      finally
        clearDirectory(_pathTemp);
        TrimAppMemorySize;
        //FreeAndNil(str);
      end;
    end;

IEGlobalSettings().PDFEngine := ieenNative;