Рисунок поверх загруженного изображения

Image1->BringToFront();
Image2->SendToBack();

Image2->BringToFront();
Image1->SendToBack();

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(OpenPictureDialog1->Execute())
  Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
 
}
//---
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
Label2->Caption = "Координаты мыши: X="+String(X)+" Y="+String(Y);
 Image2->Canvas->Pen->Color=(TColor)RGB(255,0,0);
 Image2->Canvas->Pen->Width=5;
 Image2->Canvas->MoveTo(X,Y);
 TPoint tPoint;
 tPoint.x=X;
 tPoint.y=Y;
 Image2->Canvas->PenPos=tPoint;
 Image2->Canvas->LineTo(X,Y);
 Image2->Canvas->Brush->Color=clNone;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
   Image2->Canvas->Brush->Color=clWhite; //   307
   Image2->Canvas->FillRect(Rect(0,0,Image2->Width,Image2->Height));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   Label2->Caption = "Координаты мыши: X="+String(X)+" Y="+String(Y);
   Image2->Canvas->Pen->Color=(TColor)RGB(255,0,0);
   Image2->Canvas->Pen->Width=5;
   Image2->Canvas->MoveTo(X,Y);
   TPoint tPoint;
   tPoint.x=X;
   tPoint.y=Y;
   Image2->Canvas->PenPos=tPoint;
   Image2->Canvas->LineTo(X,Y);
//   Image2->Canvas->Brush->Color=clNone;
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
 Image1->Picture->LoadFromFile("C:\\Users\\Public\\Pictures\\Sample Pictures\\Chrysanthemum.bmp");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
 Image1->Canvas->Brush->Color=clBlack;
 Image1->Canvas->Ellipse(X, Y, X+7, Y+7);
}