Halbkreis mit LineTo zeichnen?

[Karstadt]

..ich habe die Lösung

Delphi-Quellcode:

  var i  : TImage;   // image zum Anzeigen des Helbkreises
      mx : Integer;  // Mittelpunkt x
      my : Integer;  // mittelpunkt y
      k  : Integer;  // Schleifenvariable
      r  : Integer;  // Rand;
begin
  i:=Image1;
  mx:=i.Width div 2;
  my:=i.Height div 2;
  r:=20;

  i.Canvas.MoveTo(mx+r, my);

  for k:=0 to 180 do
    begin
      i.Canvas.LineTo(Round(mx+r*cos(k*Pi/180)), Round(my-r*sin(k*Pi/180)));
    end;