[shoulder]

Gracias Funciono al menos se dan cuenta que no se bloqueo el sistema.

Código Delphi [-]
 Screen.Cursor := crAPPStart;
 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);
 //bitbtn6.Click;
 Label3.Visible := False;
 Scrollbar1.SetFocus;
 Screen.Cursor := crDefault;