poner un progressbar a URLDownloadToCacheFile

[petete2008]

Hola :
Necesito poner un progressbar para ver el proceso de descarga en la llamada a la siguiente función.
¿Alguien sabe como agregar el componente 'barra de progreso'?
Gracias.

function DownloadToFile(URL, FileName: String): Boolean;
var  lpszFile: Array [0..MAX_PATH] of Char;
begin
  // Download to cache by getting newest version
  if (URLDownloadToCacheFile(nil, PChar(URL), @lpszFile, MAX_PATH, BINDF_GETNEWESTVERSION, nil) = S_OK) then
     // Copy to desired file name
     result:=CopyFile(@lpszFile, PChar(FileName), False)
  else
     // Failed
     result:=False;
end;