为什么我的裁剪图 位置就是不对 delphi写的

Question

procedure TForm1.Button2Click(Sender: TObject);
//裁剪
var
bmp: TBitmap;
jpeg: TJPEGImage;
    R1 :Trect;
    R2 :Trect;
begin     bmp:=tbitmap.Create;
     jpeg:= TJPEGImage.Create;
     jpeg.Assign(ImgPic.Picture.Graphic);
     bmp.Assign(jpeg);
     Image1.Picture.Graphic:=nil;     Image1.Canvas.CopyRect(Bounds(0,0,RzPanel1.Width,RzPanel1.Height),bmp.Canvas,Bounds(RzPanel1.Left,RzPanel1.Top,RzPanel1.Width,RzPanel1.Height));
     ZoomImage(Image1,Image2,RzPanel1.Width,RzPanel1.Height) ;end;