Fórum Progresso de um download #217126

Bom dia a todos.

Utilizo a seguinte função para efetuar downloads. Obs: declare a unit UrlMon

function TForm1.DownloadFile(pagina, aqui: string): Boolean;
begin
try
Result:= UrlDownloadToFile(nil, PChar(pagina),PChar(aqui), 0, nil) = 0;
except
Result:= False;
end;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
if DownloadFile (´http://www.google.com.br/index.html´,´c:\Hacson\google.html´) then
Messagedlg(´Download Concluído.´, mtInformation, [mbok], 0)
else
Messagedlg(´Não foi possível efetuar o download.´, mtError, [mbok], 0)
end;

A minha dúvida é como mostrar o progresso deste download para o usuário final ? Ou existe outra forma de efetuar downloads.

Grato pela atenção.