function ScanPDFTwain(ImageEnMIOScanner: TImageEnMIO; nomeFile: string; var msg: string): integer;
var
    selScan, j : integer;
    duplex: string;
    resScan: boolean;
begin
    result := 0;

    with ImageEnMIOScanner do
    begin
        selScan := TrovaScannerTwain(ImageEnMIOScanner, NomeTwain);

        if selScan >= 0 then
        begin
            TwainParams.SelectedSource := selScan;
            TwainParams.AcquireFrameLeft := 0;
            TwainParams.AcquireFrameTop := 0;
            TwainParams.AcquireFrameRight := 0;
            TwainParams.AcquireFrameBottom := 0;
            TwainParams.PixelType.CurrentValue := 0;
            TwainParams.XResolution.CurrentValue := 150;
            TwainParams.YResolution.CurrentValue := 150;
            //TwainParams.BufferedTransfer := false;
            TwainParams.AutoRotate := false;

            if (TWainParams.DuplexSupported and ScannerBifacciale) then
            begin
                TWainParams.DuplexEnabled := true;
            end;

            TwainParams.PixelType.CurrentValue := 2; // COLORI
            TwainParams.VisibleDialog := false;
            TwainParams.ProgressIndicators := false;
            AcquireParams.VisibleDialog := false;
            //AcquireParams.Orientation := TIEAcquireOrientation(1);

            resScan := Acquire(false);
            if (resScan) or (TwainParams.LastError = 0) then
            begin
                for j := 0 to ParamsCount - 1 do
                begin
                  Params[j].PDF_PaperSize   := iepAuto; //iepLetter
                  //Params[j].PDF_PaperLayout := ielLandscape;
                  Params[j].PDF_Compression := ioPDF_JPEG;
                  //Params[j].PDF_ImageOptions := [iepioShrinkOnly, iepioCentered];
                  Params[j].JPEG_Quality := 90;
                end;

                SaveToFilePDF(nomeFile);
                UtilityMemoLog.Lines.Add('Scansione:' + nomefile);
                UtilityMemoLog.Lines.Add('ParamsCount:' + IntToStr(ParamsCount));
                result := 1;

                if ((Pos(ScansioneNoDuplexCompletata, nomefile) > 0) and (not ScannerBifacciale)) or (ScannerBifacciale and (ParamsCount >= 2))  then
                begin
                    TImageEnMView(ImageEnMIOScanner.AttachedMView).Clear;
                    TwainParams.FreeResources();
                end;

            end
            else begin
                TImageEnMView(ImageEnMIOScanner.AttachedMView).Clear;
                msg := DecodificaErroreTwain(TwainParams.LastError);
                UtilityMemoLog.Lines.Add('Errore Scansione: ' + msg + '(' + IntToStr(TwainParams.LastError) + ')');
                result := 2;
            end;
        end
        else begin
            msg := 'Scanner ' + NomeTwain + ' non trovato.';
            UtilityMemoLog.Lines.Add('ERRORE: ' + msg);
            result := 3;
        end;
    end;
end;