unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,jpeg,
IdHTTP, ExtCtrls;

type
TForm2 = class(TForm)
    Image1: TImage;
    IdHTTP1: TIdHTTP;
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form2: TForm2;
       imagestream:TMemoryStream;
    jpg:TJpegImage;
implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
    imagestream := TMemoryStream.Create();
    jpg:=TJpegImage.Create;
    idhttp1.Get('http://iptv.fjut.edu.cn/img/TV-103/tvmid.jpg',imagestream);
    imagestream.Position:=0;
    jpg.LoadFromStream(imagestream);
    image1.Picture.Assign(jpg);
end;

end.