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

procedure TForm2.Button1Click(Sender: TObject);

var
lStream: TFileStream;
begin
label1.visible:=true;
lStream:=TFileStream.Create('C:\Datei.jpg', fmCreate or fmShareDenyNone);
try 
   idHTTP1.Get('http://meineseite.org/meinbild.jpg', lStream);
finally
   lStream.Free; 
end;
Image1.Picture.LoadFromFile('C:\Datei.jpg');
label1.visible:=true;
end;					

1:
2:
3:
4:
5:

procedure TForm2.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
label1.visible:=true;
end;