关于引用的问题(30分)

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Image1.Picture.LoadFromFile(Opendialog1.FileName);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image2.Picture := Image1.Picture;
end;
既然image2.picture 引用的是image1.picture.那么当image1.picture改变后，image2的图像应该改变才对呀。为什么我按下button1，选择一个图片后，只有image1中的图片改变，而image2中的不变呢？

Image2.Picture.Assign(Image1.Picture);

刷新Image2呢？

看源码:
property Picture: TPicture read FPicture write SetPicture;

procedure TImage.SetPicture(Value: TPicture);
begin
FPicture.Assign(Value);
end;
知道怎么回事了吗?

知道了！