1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm3.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
end;

procedure TForm3.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure tform3.Download();
var
begin
 IdHTTP1 := TIdHTTP.Create(self);
URL := 'www.Adresse.xy/'+daten.Strings[1] ;
 try
  //Zur Sicherheit
  imagestream.Seek(0,sofrombeginning);
  //Download
  idHTTP1.Get(URL, imagestream);
   Finally
IdHTTP1.Free;
end;
 imagestream.Seek(0,sofrombeginning);
end;