Применил функции NextLexem и Append* структуры TSyntaxDescriptor