TSnakePart.Clear Method

Unit: uSceneSnake
procedure Clear