procedure TFrmMain.Button1Click(Sender: TObject);
  var
    x,i      : integer;
    B        : TieBitmap;
    Bm       : TieBitmap;
    FileName : ShortString;
    Find     : Boolean;
    Fn       : string;
    Source   : ShortString;
    Dest     : ShortString;
    fName    : ShortString;
    F        : TSearchRec;
    found    : Double;
    y        : integer;
    oPDF     : TPdfObject;
  begin
    Source := FrmTb2.ReadIniStr(FrmTb2.IniCfg,'Folder','Source');
    FileName    := Source + '\*.PDF';
    if FindFirst(FileName,faAnyFile,F) = 0 then
      begin
        ImageEnView1.PdfViewer.Enabled := True;
        ImageEnView1.PdfViewer.LoadFromFile(source+'\'+F.Name);
// Same as above but B is a TBitmap (must add iexHelperFunctions to your uses clause for TBitmap.Proc)
//        ImageEnView1.IO.Params.PDF_Compression := ioPDF_JPEG;
//        ImageEnView1.IO.Params.JPEG_Quality    := 75;
//        for i := 0 to ImageEnView1.PdfViewer.Objects.Count - 1 do
          i := 0;
          begin
            GetDPIPDFImageFile(F.Name,x,y);
            Found := ImageEnView1.Proc.CompareWith(ImageEnView2.IEBitmap);
          //  if ImageEnView1.PdfViewer.Find('PICK TICKET',True,True,False,False,True) then
              begin
                ImageEnView1.PdfViewer.Enabled := True;
//                if ImageEnView1.PdfViewer.FindNext() then
                  begin
                    oPDF := ImageEnView1.PdfViewer.Objects[i];
                  end;
              end;
          end;
        oPDF := ImageEnView1.PdfViewer.Objects[i];
        if oPDF.ObjectType = ptImage then
          begin
            B := TIEBitmap.Create();
            try
              if oPDF.GetImage( B ) then
                begin
                  ImageEnView3.IO.iebitmap := B;
                end;
            finally
              B.Free;
            end;
          end;
      end;
  end;