URLDownloadToFile cannot update progress properly?

Question

I try to use URLDownloadToFile to download a large file in Delphi XE3. I want it to show the download progress.

Below is my code

unit MainFrm;

interfa