Kreis in Vier teile einteilen ?

[mimi]

Danke. ich habe das jetzt so

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  PaintBox1.canvas.brush.Color:=clBlack;
  PaintBox1.canvas.FillRect(PaintBox1.canvas.ClipRect);         // Fülle Canvas mit bgColor
  PaintBox1.canvas.Pen.Color:=clYellow;
  PaintBox1.canvas.Arc(30,30,100,100,30,100)
end;

Ich sehe zwar ein Gelben Punkt, aber jedoch kein Virtel Kreis. erst wenn ich mit den beiden
letzten Parameter auf 2000 gehe sehe ich was. Wie kann ich das dynamischer machen ?