image读取流

var
bmp :TMemoryStream ;
begin
inherited;
bmp := TMemoryStream.Create ;
Image2.Picture.Graphic.SaveToStream(bmp);
bmp.Position := 0;
Image1.Picture.Graphic := TJPEGImage.Create ;
Image1.Picture.Graphic.LoadFromStream(bmp);
bmp.Free ;
end;