delphi加载网络图片

1. uses Jpeg  
2. procedure TForm1.Button1Click(Sender: TObject);  
3. var  
4.     imagestream:TMemoryStream;  
5.     jpg:TJpegImage;  
6. begin  
7.     imagestream := TMemoryStream.Create();  
8.     jpg:=TJpegImage.Create;  
9.     idhttp1.Get('http://www.ggyy8.com/Files/comic/500x300/H/Naruto.jpg',imagestream);  
10.     imagestream.Position:=0;  
11.     jpg.LoadFromStream(imagestream);  
12.     image1.Picture.Assign(jpg);  
13. end;