как сделать радиус окружности корень из 200

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   x1,y1:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
x1:=x;
y1:=y;
 
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
with Canvas do
 begin
   pen.Color:=clBlue;
   Ellipse(x1-20,y1-20,x1+20,y1+20);
end;
end;
 
end.

var
  x0, y0: Integer; // Координаты центра
  r: Real; Радиус.
begin
  // Тут x0 и y0 сам присвоишь - координаты центра окрудности
  r := SQRT(200);
  With Self.Canvas do
    begin
      FillRect(ClipRect); // Затираем область формы
      Ellipse(Round(x0 - r), Round(y0 - r), Round(x0 + r), Round(y0 + r));
    end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var x0,y0:integer;
  begin
with Canvas do
 begin
    r := SQRT(200);
 
  With Self.Canvas do
    begin
    pen.Color:=clBlue;
      FillRect(ClipRect); // Затираем область формы
      Ellipse(Round(x0 - r), Round(y0 - r), Round(x0 + r), Round(y0 + r));
    end;
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var x0,y0:integer;
begin
  r := SQRT(200);
  With Self.Canvas do
    begin
      pen.Color:=clBlue;
      FillRect(ClipRect); // Затираем область формы
      Ellipse(Round(x0 - r), Round(y0 - r), Round(x0 + r), Round(y0 + r));
    end;
end;

X0 := Self.ClientWidth div 2;
Y0 := Self.ClientHeight div 2;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  x0, y0:integer;
  i: Integer;
begin
  r := SQRT(200);
  With Self.Canvas do
    begin
      pen.Color:=clBlue;
      FillRect(ClipRect); // Затираем область формы
      for i := 0 to 127 do
        begin
          x0 := Random(Self.ClientWidth);
          y0 := Random(Self.ClientHeight);
          Ellipse(Round(x0 - r), Round(y0 - r), Round(x0 + r), Round(y0 + r));
        end;
    end;
end;

X0 := X;
Y0 := Y;