Как в RadStudio 10.3 нарисовать линию?

void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          float X, float Y)
{
 Image1->Canvas->MoveTo(X,Y);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
          float X, float Y)
{
 Image1->Canvas->LineTo(X,Y);
}

void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          float X, float Y)
{
 PaintBox1->Canvas->MoveTo(X,Y);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::PaintBox1MouseMove(TObject *Sender, TShiftState Shift, float X,
          float Y)
{
 PaintBox1->Canvas->LineTo(X,Y);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Image1->Bitmap->Clear(0xFFFFFF);
    // initializes the image bitmap canvas
    Image1->Bitmap = new TBitmap(400, 400);
}
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Image1->Bitmap->Clear(0xFFFFFF);
    // sets the center and the radius of the arc
    TPointF p1(200, 200), p2(150, 150);
    Image1->Bitmap->Canvas->BeginScene();
    // fills and draws the arc on the canvas
    Image1->Bitmap->Canvas->FillArc(p1, p2, 90, 230, 20);
    Image1->Bitmap->Canvas->EndScene();
}
//---------------------------------------------------------------------------
 
 
//---------------------------------------------------------------------------

    Image1->Bitmap->Canvas->BeginScene();
    TPointF p1(Х_начало,У_начало),p2(Х_конец,У_конец);
    Image1->Bitmap->Canvas->DrawLine(p1, p2,10);
    Image1->Bitmap->Canvas->EndScene();

    X=X*смещение;
    Y=Y*смещение;

Image1->Bitmap = new TBitmap(Image1->Width, Image1->Height);