Var
    PDFView: TImageEnView;
.....
Begin
  PDFView.PdfViewer.AllowFormEditing := false;//True;
  PDFView.PdfViewer.Enabled := True;
  ImageEnMView1.AttachedImageEnView := PDFView;
.....
  PDFView.PdfViewer.Enabled := True;
  try
    PDFView.IO.LoadFromFile( OpenPDF.Filename );
    Self.Hint:=OpenPDF.Filename;

    PDFView.MouseInteractGeneral := [ miScroll, miZoom ];
  except
    on e:Exception do
      MessageDlg( 'Error encountered loading PDF file: ' + e.message, mtError, [ mbOK ], 0 );
  end;

..........

            tmpiTask:=TTask.Run(
              procedure
              Begin
                TParallel.For(0,ImageEnMView1.ImageCount - 1,
                  procedure (Hidx: Integer)
                  var
                    tmpIENView:TImageEnView;
                    tmpFileName_Back,
                    tmpFileName_Do:String;
                  begin
                    
tmpFileName_Do :=...

                    tmpIENView:=TImageEnView.Create(Nil);
                    Try
                     
                      ImageEnMView1.CopyToIEBitmap( Hidx, tmpIENView.IEBitmap,TRUE );

                      Try
                        tmpIENView.IO.SaveToFileIEN(tmpFileName_Do);
                      Except
                        TInterlocked.Increment(TInterlocked_Err_Count);
                      End;
                    Finally
                      tmpIENView.Free;
                    End;
                  end);
              End);

......

TTask.WaitForAll([tmpiTask]);
......

       tmpImageEnView:=TImageEnView.Create(Nil);
       Try
         for I := 0 to ImageEnMView1.ImageCount-1 do
         Begin
            Application.ProcessMessages;

            tmpImageEnView.ClearAll;
            ImageEnMView1.CopyToIEBitmap(I,tmpImageEnView.IEBitmap,TRUE );
.....            
tmpFileName_Do:=.........
.....
            Try
            
                tmpIENView.IO.SaveToFileIEN(tmpFileName_Do);
            Except
		....
            End;

         End;
       Finally
          tmpImageEnView.Free;
       End;

tempIE := TImageEnView.Create(nil);
try
  tempIE.PdfViewer.Enabled := True;
  for i := 0 to ssFileList - 1 do
  begin
    tempIE.IO.LoadFromFilePDF( ssFileList[i] );
    tempIE.IO.SaveToFileJPEG( ChangeFileExt( ssFileList[i], '.jpeg' );
  end;
finally
  tempIE.Free;
end;

........

       PDFView.LockUpdate;
       PDFView.LockPaint;
       Try
         SW:=TStopwatch.StartNew;
         for I := 0 to PDFView.PdfViewer.PageCount-1 do
         Begin
            Self.ProgressBar1.Position:=I;
            Application.ProcessMessages;

            tmpImageEnView.ClearAll;

            PDFView.PdfViewer.PageIndex:=I;
            PDFView.PdfViewer.DrawTo( tmpImageEnView.IEBitmap,
                        MulDiv(PDFView.PdfViewer.PageWidth,300,72),
                        MulDiv(PDFView.PdfViewer.PageHeight,300,72)
                          );
            tmpImageEnView.Update;
........
         End;
         Writeln('Operating time:'+(SW.ElapsedMilliseconds/1000).ToString+'s');
........

       Finally
          PDFView.UnlockUpdate;
          PDFView.UnlockPaint;
      End