Como hacer zoom en una imagen bmp en c++

Codigo para hacer zoom en una imagen. El codigo es corto y facil. 

void __fastcall TForm1::Image1MouseDown(TObject *Sender,

      TMouseButton Button, TShiftState Shift, int X, int Y)

{

        x1 = X;         // coordenadas del click

        y1 = Y;        

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,

      TShiftState Shift, int X, int Y)

{

         x2 = X;       // coordenadas cuando se suelta el click del mouse

         y2 = Y;

         TRect origen, destino;

         

         origen = Rect(x1, y1, x2, y2);  // area del rectangulo donde quiero hacer zoom

         destino = Rect(0, 0, Image2->Width, Image2->Height); // rectangulo donde se va a copiar

         Image2->Canvas->CopyRect(destino, Image1->Canvas, origen);  // zoom de la imagen

}

//---------------------------------------------------------------------------