Como calcular el tamaño de la descarga con IdHTTP ó como descargar los atributos
 

Estoy usando un componente IdHTTP para descargar información sobre las actualizaciones disponibles para una aplicación, pero quisiera agregar un TProgressBar para mostrar el avance de la descarga.

¿ Como puedo determinar el tamaño de un archivo determinado antes de comenzar la descarga ?

ó Bien

¿ Como puedo bajar los atributos de un archivo desde un servidor Web ?

Código Delphi [-]
procedure TfActualizacionOnLine.Descargar(Origen,Destino:String);
Var
Stream: TFileStream;
begin
// Borrar si existe el archivo a descargar
If FileExists(Destino) then
   SysUtils.DeleteFile(Destino);
Stream := TFileStream.Create(Destino, fmCreate);
try
// ProgressBar.Max :=  IdHTTP1.????????
   IdHTTP1.Get(Origen,Stream);
   finally
      Stream.Free;
      end;
end;

// y el Evento  Work calcula lo descargado

procedure TfActualizacionOnLine.IdHTTPWork(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
ProgressBar.Position := tDescargado + AWorkCount;
end;