Как обрезать Image (bitmap) в другой Image (bitmap)

void _fastcall TMajForm::breakPartImg(TImage *Image, TImage *PImage,
    TPoint tPntBegin, TPoint tPntEnd) {
 
}

PImage->Canvas->CopyMode = cmSrcCopy;
    TRect tRectFrom(oXY1.x, oXY1.y, oXY2.x, oXY2.y);
    TRect tRectTo(0, 0, 65, 66);
    PImage->Canvas->CopyRect(tRectTo, Image->Picture->Bitmap->Canvas,
        tRectFrom);
    PImage->Stretch = true;

void __fastcall TMajForm::OnMouseDownBmp(TObject *Sender, TMouseButton Button,
    TShiftState Shift, int X, int Y) {
    oXY1.x = X;
    oXY1.y = Y;
}
// ---------------------------------------------------------------------------
 
void __fastcall TMajForm::OnMouseUpBmp(TObject *Sender, TMouseButton Button,
    TShiftState Shift, int X, int Y) {
    oXY2.x = X;
    oXY2.y = Y;
    drawArea(oXY1, oXY2);
}
// ---------------------------------------------------------------------------

Graphics::TBitmap *bitmap1=new Graphics::TBitmap;
     bitmap1->LoadFromFile("F:\\drawgraphic.bmp");
     bitmap1->Transparent=true;
     bitmap1->TransparentColor=clWhite;
 
Canvas->CopyRect(Rect(0,0,200,200),bitmap1->Canvas,Rect(0,0,400,280));
delete bitmap1;