El tpdfimage es una clase para pdfs dentro de una TImage (The class TPDFImage registers as a graphics class for PDF files with TPicture. With this class you can open a PDF
in the same way you do with other graphics in delphi. There are advanced features available for selecting the page to load and to change the resolution / zoom factor.). El use es itfPDFImage y funciona muy bien. El tema que se carga el archivo pdf en Timage.
Este es el codigo :
Código Delphi
[-]
Image1.Picture.loadFromFile(archivo);
TPDFImage(Image1.Picture.Graphic).LastPage;
Label2.Caption:='Página Actual : ' + IntToStr(TPDFImage(Image1.Picture.Graphic).CurrentPage);
Label1.Caption:='Páginas : ' + IntToStr(TPDFImage(Image1.Picture.Graphic).Pagecount);
Scrollbar1.SetFocus;
Pero el archivo como no es un jpeg es un pdf, por alguna razon el Image1.onprogress lo ignora.