URLDownloadToFile: Programm reagiert nicht während Download

[Mazel]

Hallo,

ich verwende URLDownloadToFile um zum Beispiel Zip-Datein oder andere Große Files zu downloaden. Das Problem welches ich habe ist, das während des Ladens meine Applikation nicht reagiert. Ich habe es mit Application.ProcessMessages versucht die in einem Timer sitzt aber das funktioniert nicht. Der Grund warum ich das haben will ist, damit ich den Fortschritt des Downloads sehe.
Hier mal die aktuelle Version:

Delphi-Quellcode:

function TForm1.DownLoadInternetFile(const URL, Localfile: String): Boolean;
begin
 Result:=URLDownloadToFile(nil, PChar(URL), PChar(Localfile), 0, nil) = 0;
end;

procedure TForm1.BtnOKClick(Sender: TObject);
begin
 Application.ProcessMessages;
 DownLoadInternetFile(Temp, 'C:\Tempfile.dat');
end;

Was muss ich machen, damit meine Anwendung während des Ladens trotzdem reagiert und damit ich den Fortschritt sehe? Bin jeder Hilfe dankbar.

Gruß
Mazel