Создание арок

[Rio309]

Надо создать процедуру аналогичную Arc()
Среда программирования Делфи.
Мой код:

Строит по двум точкам и градусам, но при попытке вращения всей детали, отображается не правильно.

procedure ArcXY(x1,x2,y1,y2:integer; phi1,phi2:real);
var i,midx,midy,radius,centerx,centery:real;
begin
i:=Phi1;
radius:=sqrt(sqr(x2-x1)+sqr(y2-y1))/2;

centerx:=(x2-x1)/2+x1;
centery:=(y2-y1)/2+y1;


with form1 do
  begin
  midx:=paintbox1.Width/2;
  midy:=paintbox1.height/2;
    paintbox1.canvas.moveto(round(centerx+radius*sin(i)), round(centery+radius*cos(i)));
    while i<=phi2 do
      begin
      paintbox1.canvas.lineto(round(centerx+radius*sin(i)), round(centery+radius*cos(i)));
      i:=i+0.01;
      end;
      paintbox1.Canvas.Pen.Style:=psDashDot;
      paintbox1.Canvas.pen.Width:=1;
      paintbox1.canvas.moveto(round(centerx), round(centery));
      paintbox1.canvas.lineto(round(centerx+radius*sin((phi2+phi1)/2)), round(centery+radius*cos((phi2+phi1)/2)));
      paintbox1.Canvas.Pen.Style:=psSolid;
      paintbox1.Canvas.pen.Width:=3;
  end;
end;