تعویض محتوای دو ایمیج با stream

[reza_king_sh]

با سلام. من دو تا کنترل image دارم و می خوام محتویات یکی از اونها رو با استفاده از stream در اون یکی کپی کنم.با این کد که روی کلیک یه باتن نوشتم:


procedure TForm1.Button1Click(Sender: TObject);
var stream: TMemoryStream;
begin
stream:= TMemoryStream.Create;
MyImage1.Picture.Graphic.SaveToStream(stream);
stream.Position:= 0;
MyImage2.Picture.Graphic.LoadFromStream(stream);
stream.Free
end;


در ضمن فرمت عکس هایی که تو image ها هست از نوع JPG هستش.
ولی خوب نمی دونم چرات جواب نمیده!!