[Spam]

а почему ты ето в привате описал оно же не будет использоватся

FAngle : Integer;
procedure DrawStar(Angle : Integer);