Менеджеры закачек

[BDA]

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
 AWorkCount: Int64);
begin
 ProgressBar1.Position := AWorkCount;
end;

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
 AWorkCountMax: Int64);
begin
 ProgressBar1.Position := 0;
 ProgressBar1.Max := AWorkcountMax;
end;

procedure TForm1.Button1Click(Sender: TObject);
var FileStream :TFileStream;
begin
 FileStream := TFileStream.Create('c:\имя_файла.txt', fmCreate);
 IdHTTP1.Get('http://Адрес/', FileStream);
 FileStream.Free;
end;

Нашел в интернете за 30 секунд