Pon un icono animado antes y lo quitas después. No es lo mismo, pero "da el pego",
Código Delphi
[-] iconoanimado.Show;
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;
iconoanimado.Hide;