[Dmitry_DM]

Сообщение от poli-smen

Ну и соответственно в процедуру WriteWav добавь параметр для имени файла, который будешь использовать при создании потока TFileStream.

То-есть сделать так:

Код:

procedure WriteWav(Sender: TObject);

или так:

Код:

procedure WriteWav(FileName, fmOpenReadWrite);