Рисование в Image по координатом из Label

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int Col1=0x00FF,  Col2=0xFF00;
void MyDraw(int x,int y,int r,TColor C1,TColor C2)
{
Form1->Canvas->Pen->Color=C1;
Form1->Canvas->Pen->Width=5;
Form1->Canvas->Arc(x,y-r,x+2*r,y+r,x,y,x+2*r,y);
Form1->Canvas->MoveTo(x,y);
Form1->Canvas->LineTo(x+r,y-r);
Form1->Canvas->LineTo(x+2*r,y);
Form1->Canvas->Brush->Color=C2;
Form1->Canvas->FloodFill(x+r,y,C1,fsBorder);}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
MyDraw(50,50,30,clRed,clYellow);
Canvas->Pen->Width=55;
Canvas->Pen->Color=Color;
Col2=Color;
Col1=Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
Col1=random(0xFFFFFF);
Col2=random(0xFFFFFF);
Canvas->Brush->Color=Col1;
Canvas->Pen->Color=Col2;
Canvas->Pen->Width=5;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
MyDraw(X,Y,30,Col1, Col2);        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
Canvas->Rectangle(X-2,Y-2,X+2,Y+2);
Label1->Caption="X="+IntToStr(X)+" Y="+IntToStr(Y);
}

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
        Canvas->Rectangle(X-2,Y-2,X+2,Y+2);
        Label1->Caption="X="+IntToStr(X)+" Y="+IntToStr(Y);
}