1. Переписал под sin(x) * cos(x)
2. Избавился от экземпляров TList