drawArc
procedure drawArc(x, y, width, height, startAngle, arcAngle: integer);
Draws the arc covering the specified rectangle. The arc starts at 'startAngle' and extends for 'arcAngle' degrees. The angle of 0° degrees is at 3 o'clock position. The angle of 90° is at 12 o'clock position.
begin
drawArc(0, 0, getWidth, getHeight, 0, 90);
repaint;
delay(1000);
end.