Реализовать алгоритм Брезенхема, для дуг окружности и дуг эллипса

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,Math;
 
type
  TForm1 = class(TForm)
    BRisunok: TButton;
    Image1: TImage;
    RRisunok: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BClear: TButton;
    procedure BRisunokClick(Sender: TObject);
    procedure RRisunokClick(Sender: TObject);
    procedure BClearClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  res:integer;
 
implementation
 
{$R *.dfm}
  Procedure Line(Canvas: TCanvas; x1,y1,x2,y2:integer);
    var dx,dy,i,sx,sy,check,e,x,y:integer;
    begin
        dx:=abs(x1-x2);
        dy:=abs(y1-y2);
        sx:=Sign(x2-x1);
        sy:=Sign(y2-y1);
        x:=x1;
        y:=y1;
        check:=0;
        if dy>dx then begin
            dx:=dx+dy;
            dy:=dx-dy;
            dx:=dx-dy;
            check:=1;
        end;
        e:= 2*dy - dx;
        for i:=0 to dx do begin
            Canvas.Pixels[x,y]:=clBlack;
            if e>=0 then begin
                if check=1 then x:=x+sx else y:=y+sy;
                e:=e-2*dx;
            end;
            if check=1 then y:=y+sy else x:=x+sx;
            e:=e+2*dy;
        end;
    end;
 
 
procedure Circle(Canvas: TCanvas;  x1, y1, R : Integer);
var x,y,error,delta : integer;
begin
  InvalidateRect(0, nil, true); //Очистка Canvas, необходимая для затирания созданных кругов
  x := 0;
  y := R;
  delta := (2 - 2 * R);
  error := 0;
  while y >= 0 do
  begin
    Canvas.Pixels[X1 + x,Y1 + y] := clBlack;
    Canvas.Pixels[X1 + x,Y1 - y] := clBlack;
    Canvas.Pixels[X1 - x,Y1 + y] := clBlack;
    Canvas.Pixels[X1 - x,Y1 - y] := clBlack;
    error := 2 * (delta + y) - 1;
    if ((delta < 0) and (error <= 0)) then
    begin
      inc(x);
      delta := delta + (2 * x + 1);
      continue;
    end;
    error := 2 * (delta - x) - 1;
    if ((delta > 0) and (error > 0)) then
    begin
      dec(y);
      delta := delta + (1 - 2 * y);
      continue;
    end;
    inc(x);
    delta := delta + (2 * (x - y));
    dec(y);
  end;
end;
 
 
 
procedure Ellips(Canvas: TCanvas; xc, yc : integer; XRadius, YRadius : Word);
var
  x, y : integer;
  xr2, yr2, d : longint;
  xm : double;
begin
  xr2 := sqr(XRadius) shl 1; yr2 := sqr(YRadius) shl 1;
  x := 0; y := YRadius; d := (yr2 - xr2 * y) + xr2 shr 1 ;
  xm := xr2 / sqrt((xr2 + yr2) shl 1) - 1;
  Canvas.Pixels[xc + x, yc + y] := clBlack;
  Canvas.Pixels[xc + x, yc - y] := clBlack;
  Canvas.Pixels[xc - x, yc + y] := clBlack;
  Canvas.Pixels[xc - x, yc - y] := clBlack;
  while x < xm do begin
    if d > 0 then begin
      dec(y);
      d := d + yr2 * (x shl 1 + 3) - xr2 * y shl 1 ;
    end
    else
      d := d + yr2 * (x shl 1 + 3);
    inc(x);
    Canvas.Pixels[xc + x, yc + y] := clBlack;
    Canvas.Pixels[xc + x, yc - y] := clBlack;
    Canvas.Pixels[xc - x, yc + y] := clBlack;
    Canvas.Pixels[xc - x, yc - y] := clBlack;
  end;
  d := (xr2 - yr2 * XRadius) + yr2 shr 1; x := XRadius; y := 0;
   Canvas.Pixels[xc + x, yc + y] := clBlack;
    Canvas.Pixels[xc + x, yc - y] := clBlack;
    Canvas.Pixels[xc - x, yc + y] := clBlack;
    Canvas.Pixels[xc - x, yc - y] := clBlack;
  xm := xm + 2;
  while x > xm do begin
    if d > 0 then begin
      dec(x);
      d := d + xr2 * (y shl 1 + 3) - yr2 * x shl 1
    end
    else
      d := d + xr2 * (y  shl 1 + 3);
    inc(y);
    Canvas.Pixels[xc + x, yc + y] := clBlack;
    Canvas.Pixels[xc + x, yc - y] := clBlack;
    Canvas.Pixels[xc - x, yc + y] := clBlack;
    Canvas.Pixels[xc - x, yc - y] := clBlack;
  end
end;
 
 
procedure TForm1.BRisunokClick(Sender: TObject);
begin
case res of
     0:Line(Image1.Canvas,strtoint(edit1.text),
                          strtoint(edit2.text),
                          strtoint(edit3.text),
                          strtoint(edit4.text));
     1:Circle(Image1.Canvas,strtoint(Edit1.Text),
                            strtoint(Edit2.Text),
                            strtoint(Edit3.Text));
     2:Ellips(Image1.Canvas,strtoint(edit1.text),
                          strtoint(edit2.text),
                          strtoint(edit3.text),
                          strtoint(edit4.text));
  end;
 
 
 
  BClear.Visible:=True;
end;
 
procedure TForm1.RRisunokClick(Sender: TObject);
begin
  case RRisunok.ItemIndex of
       0:begin
          edit1.Visible:=true;
          edit2.Visible:=true;
          edit3.Visible:=true;
          edit4.Visible:=true;
          BRisunok.Visible:=true;
          res:=0;
         end;
       1:begin
          edit1.Visible:=true;
          edit2.Visible:=true;
          edit3.Visible:=true;
          edit4.Visible:=False;
          BRisunok.Visible:=true;
          res:=1;
         end;
       2:begin
          edit1.Visible:=true;
          edit2.Visible:=true;
          edit3.Visible:=true;
          edit4.Visible:=true;
          BRisunok.Visible:=true;
          res:=2;
         end;
         
   end;
 
end;
procedure TForm1.BClearClick(Sender: TObject);
begin
   Image1.Canvas.Brush.Color:=RGB(255,255,255);
   Image1.Canvas.Pen.Color:=RGB(255,255,255);
   Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
   BClear.Visible:=False;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Brush.Color:=clWhite;
end;
 
end.

Canvas.Arc(x1,y1,х2,у2,х3,у3,х4,у4)