相关疑难解决方法(0)

我正在从磁盘加载图像,并希望将其(部分)复制到第二个TImage:

Image1.Picture.LoadFromFile(S);
with Image1.Picture.Bitmap do
  Image2.Canvas.CopyRect(Image2.Canvas.ClipRect, Canvas, Canvas.ClipRect);

Image2只显示一个白色矩形,Image1不显示磁盘上的文件.如果我删除第二个语句Image1确实显示图像.(奇怪的事情:如果我只注释掉CopyRect语句,并留下了"与"行(空语句)此搜索不显示任何!)

如何使用CopyRect复制部分图像？

编辑
当我将两个语句拆分为两个单独的操作(按钮)时,会发生以下情况:

1. 图像加载并显示在Image1中
2. Image1消失(!),Image2显示白色矩形.

顺便说一下,我正在使用Delphi 2009.