пасиб за ответ, но у меня удаление не дало ничего... Вот зато подсказали правильное решение на другом форуме..
Переменная этого типа не может быть объявлена локально в этой процедуре. Не спрашивайте "почему?" не знаю (может кто из знатоков подскажет). Знаю только что FillChar при каждой итерации обнуляет управляющую переменную I. Цикл становится бесконечным - ошибка обеспечена. Выносим объявление массива за пределы процедуры. Может еще есть какой способ, но найден пока такой.
Код:
Код:
var
hdr: array[0..2] of WAVEHDR;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
wout: hWaveOut;
fmt: tWAVEFORMATEX;
begin
...