1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  i:=Image1;
  r:=90;      // vorgegebener Radius

  for j := 0 to 360 do     //von 0 bis 360 Grad des Kreises
    begin
      x:=cos(DegToRad(j)) * r + i.Width / 2; // i um den Kreis mittig zu zeichenn
      y:=sin(DegToRad(j)) * r + i.Height / 2; // ----------''--------------
                                              //Mittelpunkt wird anhand der Größe
                                              //vom Image gemessen und darum der Raduis gesetzt
      i.Canvas.Lineto(Round(x), Round(y));    //Kreis wird gezeichnet, solange bis j=360° sind
    end;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

r:integer;
x,y:real;

begin

r:=90;

y := (sqrt(sqr(r) - (sqr(x))));
x := (sqrt(sqr(r) - (sqr(y))));
Image1.Canvas.Lineto(round(x),round(y));					

1:

Image1.Canvas.MoveTo(r+i.Width,r+i.Height);					

1:

i.Canvas.Lineto(Round(x), Round(y));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

  i := Image1;
  r := 90;      // vorgegebener Radius

  x := cos(DegToRad(0)) * r + i.Width / 2; // kann man natürlich vereinfachen ;-)
  y := sin(DegToRad(0)) * r + i.Height / 2;
  i.Canvas.MoveTo(Round(x), Round(y));

  for j := 1 to 360 do     //von 0 bis 360 Grad des Kreises
  begin
    x := cos(DegToRad(j)) * r + i.Width / 2; // i um den Kreis mittig zu zeichenn
    y := sin(DegToRad(j)) * r + i.Height / 2; // ----------''--------------
                                              //Mittelpunkt wird anhand der Größe
                                              //vom Image gemessen und darum der Raduis gesetzt
    i.Canvas.Lineto(Round(x), Round(y));    //Kreis wird gezeichnet, solange bis j=360° sind
  end;
end;					

1:
2:

//Canvas.Pen.Color := clGreen;
Canvas.Brush.Color := clGreen;					

1:
2:

image1.Canvas.Ellipse(0,0,180,180);
Canvas.Brush.Color := clGreen;					

1:

Canvas.FloodFill(90,90,clBlack,fsBorder);					

1:
2:

Image1.Canvas.Brush.Color:=clred;
image1.Canvas.Ellipse(0,0,180,180);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

procedure canvasfilledCircle(can:TCanvas;MittelPunkt:Tpoint;radius:integer);
//Zeichnet das innere eines Kreises mittels horizontaler Linien
var
  x,y,dy : integer;
  tmpColour : Tcolor;
begin
  tmpColour := can.Pen.Color;
  can.Pen.Color := can.Brush.Color;
  radius := radius-1;// nur inneren Teil
  with can do
    begin
    for dy := -radius to radius do
      begin
      x := round(sqrt(sqr(radius)-sqr(dy)));
      moveto(Mittelpunkt.x-x, Mittelpunkt.y+dy);
      Lineto(Mittelpunkt.x+x, Mittelpunkt.y+dy);
      end;
    end;
  can.Pen.Color := tmpColour;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  t1,t0: dword;
begin
   t0:= gettickcount;
   for i := 1 to 5000 do
     begin
     Form1.canvas.Brush.Color := random(high(TColor));
     canvasfilledCircle(Form1.canvas,Point(150,200),70);
     end;
   t1:= gettickcount;
   memo1.Lines.Add(Format('Eigenbau %d',[t1-t0]));

   t0:= gettickcount;
   for i := 1 to 5000 do
     begin
     Form1.canvas.Brush.Color := random(high(TColor));
     Form1.canvas.ellipse(150-70,200-70,150+70,200+70);
     end;
   t1 := gettickcount;
   memo1.Lines.Add(Format('Ellipse %d',[t1-t0]));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
x,y,m,n:Integer;
begin
If  TryStrToInt(Edit1.text,x) 
 and TryStrToInt(Edit2.text,y)  
 and TryStrToInt(Edit3.text,m)  
 and TryStrToInt(Edit4.text,n)  then
  begin
          // malen
        end 
 else Showmessage('Ungültige Eingabe');					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var x,y,m,n:integer;
begin
x:=StrToInt (Edit1.Text);  //Breite angeben
y:=StrToInt (Edit2.Text);  //LÄNGE angeben
m:=StrToInt (Edit3.Text);
n:=StrToInt (Edit4.Text);
image1.Canvas.Ellipse(x,y,m,n);
end;