Delphi加载网络图片

Delphi加载网络图片
uses Jpeg
procedure TForm1.Button1Click(Sender: TObject);
var
    imagestream:TMemoryStream;
    jpg:TJpegImage;
begin
    imagestream := TMemoryStream.Create();
    jpg:=TJpegImage.Create;
    idhttp1.Get('http://www.ggyy8.com/Files/comic/500x300/H/Naruto.jpg',imagestream);
    imagestream.Position:=0;
    jpg.LoadFromStream(imagestream);
    image1.Picture.Assign(jpg);
end;