图像问题,把image1的图片拷贝一个矩形进入image2显示；请指点。下面是源码(50分)

var
Form1: TForm1;
Bitmap : TBitMap;
implementation
uses
jpeg;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile('E:/Downloads/资料/FeatherTexture.bmp');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Bitmap.Free;
end;

procedure TForm1.Image2Click(Sender: TObject);
var
R1 : Trect;
begin
image2.Picture.Bitmap:=nil;
Bitmap := TBitMap.Create;
r1.Top:=image1.Top;
r1.Left:=image1.Left;
r1.Right:=image1.Left+image2.Width;
r1.Bottom:=image1.Top+image2.Height;
Bitmap.Canvas.CopyRect(form1.image2.ClientRect,form1.image1.Canvas,r1);
image2.Canvas.StretchDraw(r1,bitmap);
end;

end.


请大家指点。

用API函数容易的。
函数功能：该函数对指定的源设备环境区域中的像素进行位块（bit_block）转换，以传送到目标设备环境。

函数原型：BOOL BitBlt(HDC hdcDest,int nXDest,int nYDest,int nWidth,int nHeight,HDC hdcSrc,int nXSrc,int nYSrc,DWORD dwRop)；

参数：

hdcDest：指向目标设备环境的句柄。

nXDest：指定目标矩形区域左上角的X轴逻辑坐标。

nYDest：指定目标矩形区域左上角的Y轴逻辑坐标。

nWidth：指定源和目标矩形区域的逻辑宽度。

nHeight：指定源和目标矩形区域的逻辑高度。

hdcSrc：指向源设备环境的句柄。

nXSrc：指定源矩形区域左上角的X轴逻辑坐标。

nYSrc：指定源矩形区域左上角的Y轴逻辑坐标。

dwRop：指定光栅操作代码。这些代码将定义源矩形区域的颜色数据，如何与目标矩形区域的颜色数据组合以完成最后的颜色。

下面列出了一些常见的光栅操作代码：

BLACKNESS：表示使用与物理调色板的索引0相关的色彩来填充目标矩形区域，（对缺省的物理调色板而言，该颜色为黑色）。

DSTINVERT：表示使目标矩形区域颜色取反。

MERGECOPY：表示使用布尔型的AND（与）操作符将源矩形区域的颜色与特定模式组合一起。

MERGEPAINT：通过使用布尔型的OR（或）操作符将反向的源矩形区域的颜色与目标矩形区域的颜色合并。

NOTSRCCOPY：将源矩形区域颜色取反，于拷贝到目标矩形区域。

NOTSRCERASE：使用布尔类型的OR（或）操作符组合源和目标矩形区域的颜色值，然后将合成的颜色取反。

PATCOPY：将特定的模式拷贝到目标位图上。

PATPAINT：通过使用布尔OR（或）操作符将源矩形区域取反后的颜色值与特定模式的颜色合并。然后使用OR（或）操作符将该操作的结果与目标矩形区域内的颜色合并。

PATINVERT：通过使用XOR（异或）操作符将源和目标矩形区域内的颜色合并。

SRCAND：通过使用AND（与）操作符来将源和目标矩形区域内的颜色合并。

SRCCOPY：将源矩形区域直接拷贝到目标矩形区域。

SRCERASE：通过使用AND（与）操作符将目标矩形区域颜色取反后与源矩形区域的颜色值合并。

SRCINVERT：通过使用布尔型的XOR（异或）操作符将源和目标矩形区域的颜色合并。

SRCPAINT：通过使用布尔型的OR（或）操作符将源和目标矩形区域的颜色合并。

WHITENESS：使用与物理调色板中索引1有关的颜色填充目标矩形区域。（对于缺省物理调色板来说，这个颜色就是白色）。

返回值：如果函数成功，那么返回值非零；如果函数失败，则返回值为零。

Windows NT：若想获取更多错误信息，请调用GetLastError函数。