IdHTTP und Progressbar

[ehem. Benutzer]

Ich will nur wissen wie ich den Fortschritt eines Dateidownloads
über IdHTTP in einer Progressbar darstelle.
In der Suche stand nur das es dazu z.B. OnWork gibt aber nicht wie ich es
verwende, und das ist meine Frage.

Hier mal ein Ausschnitt aus dem Quelltext:

Delphi-Quellcode:

   responseStream := TFileStream.Create(edit2.text + '\' + edit3.text, fmCreate);   //dateiverzeichnis
   IdHTTP1.Get(edit1.text, responseStream);
   responseStream.free;
   label1.Caption := 'Download fertig gestellt.';