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:
45:

procedure kreissegment(w1,w2:real; f1,f2,f3:byte);
var
Pi,winkel,grad1,grad2:real;
m,r,h,w,x1,y1,x2,y2:integer;

begin

  Pi := 3.14159268;
  m := 100;          // Mittelpunkt
  r := 50 ;          // Radius
  h := 200;          // Höhe
  w := 200;          // Breite

  grad1 := -90+w1; //bei 12 Uhr, dann dem Urzeigersinn, darum -90
  winkel := pi*grad1/180;
  x1 := Trunc(Cos(winkel)* r) + m;
  y1 := Trunc(Sin(winkel)* r) + m;

  grad2 := grad1+w2;
  winkel := pi*grad2/180;
  x2 := Trunc(Cos(winkel)* r)+m;
  y2 := Trunc(Sin(winkel)* r)+m;

  statistik1.Canvas.Pen.Color := 0;
  statistik1.canvas.Brush.Color := rgb(f1,f2,f3);
  statistik1.Canvas.Pie(10,10,h-10,w-10,x2,y2,x1,y1);
end;

function prozent_to_winkel(prozent:real):real;
begin
  prozent_to_winkel:=360*prozent/100
end;

procedure Tstatistik1.Button1Click(Sender: TObject);
begin
 //erstes Beispiel mit Grad Angabe (90 Grad, 90 Grad, 45 Grad)
 // kreissegment(0,90,0,0,255);
 // kreissegment(90,90,0,255,0);
 // kreissegment(180,45,255,0,0);

  //zweites Beispiel mit Prozent (3 Stück Kuchen mit jeweils 33.33 Prozent)
  kreissegment(0,prozent_to_winkel(33.33),0,0,255);
  kreissegment(prozent_to_winkel(33.33),prozent_to_winkel(33.33),0,255,0);
  kreissegment(prozent_to_winkel(66.66),prozent_to_winkel(33.33),255,0,0);
end;