TSnakeScene.AddBonus Method

Unit: uSceneSnake
procedure AddBonus