Нарисовать окружность на канве

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
int count=0;// Счетчик
TPoint points[3];// Массив для хранения координат
float  rx, ry, r; //  радиус окружности
float xc, yc; // Координаты центра окружности
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
 
}
 
 
void __fastcall TForm2::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
// Рисуем
Image1->Canvas->FillRect(Image1->Canvas->ClipRect);
points[count] = Point(X,Y);
if(count == 0){
    Image1->Canvas->MoveTo(X,Y);
}
 
Image1->Canvas->LineTo(X,Y);
count++;
if(count > 0){
    count = 0;
    Image1->Canvas->Ellipse(xc,yc,rx,ry);
    xc=points[0].x;
    yc=points[0].y;
    rx=points[1].x;
    ry=points[1].y;
}
}

Image1->Canvas->FillRect(Image1->Canvas->ClipRect);
points[count] = Point(X,Y);
if(count == 0)
{
  Image1->Canvas->MoveTo(X,Y);
  count++;
}
else
{
 Image1->Canvas->LineTo(X,Y);
 count=0;
 xc=points[0].x;
 yc=points[0].y;
 rx=points[1].x;
 ry=points[1].y;
 r=sqrt((xc-rx)*(xc-rx)+(yc-ry)*(yc-ry));
 Image1->Canvas->Ellipse(xc-r,yc-r,xc+r,yc+r);
/* Image1->Canvas->Ellipse(rx-r,ry-r,rx+r,ry+r); // или так если, центр второй клик */
 
}