Как я могу воспроизвести одиночный тон или произвольную волну с помощью Delphi?

Я просмотрел какой-то код, кажется, что все создает волны математических функций, но я хочу один тон или пользовательскую волну, созданную с помощью пользовательских одиночных тонов.

Я читал это Как я могу генерировать непрерывные тона различной частоты?

Что близко к моему ответу. Предполагая, что я собираюсь использовать waveOutWrite, как в приведенной выше ссылке, я не могу понять, как рассчитывается amp / freq для каждого сэмпла в HWAVEOUT.

В коде по ссылке это делается так: Samples [i]: = round (vol * sin (omega * t));

Предполагая, что мне нужен однотональный сигнал с частотой 15 кГц с некоторым усилителем (не имеет значения, какой), как будет выглядеть Sample [1]? вычислено?