如何在Image1.Picture = LoadPicture("xxx")知道load的進度給使(編號:1505)

因為若圖檔太大會讓使用者絕得當了...
如何用progressbar讓知道進度