Draw_Circle

procedure Draw_Circle(

  aBMP: TBitmap32;

  const X: Integer;

  const Y: Integer;

  const Ray: Integer;

  aColor: Tcolor32;

  MaxAngle: Integer = 360

);