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

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
var s: tstream; bit: tbitmap;
begin
s:=tstream.Create;
idtcpclient1.ReadStream(s);
bit:=tbitmap.Create;
bit.LoadFromStream(s);
image1.Picture.Graphic.LoadFromStream(s);
bit.free;
end;					

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

var MS : TMemoryStream;
    JPeg: TJPegImage;

MS := TMemoryStream.Create;
JPeg := TJPegImage.Create;
try
  IdHTTP1.Get('http://pic.jpg', MS);
  MS.Position := 0;
  JPeg.LoadFromStream(MS);
  image1.Picture.Bitmap.Assign(JPeg);
finally
  MS.Free;
  JPeg.Free;
end;