[poli-smen]

Сообщение от Dmitry_DM

В этом:

Код:

fs := TFileStream.Create(FileName, fmCreate);
  try
    fs.WriteBuffer(Header, SizeOf(Header));

    for I := 1 to NumSamples do
    begin
      for J := 1 to Header.NumChannels do
      begin
        fs.WriteBuffer(WavInfo.Samples[J - 1, I - 1], BytsPerSample);
      end;
    end;

Нет. В этом месте читается массив из переменной WavInfo и записывается в файл. А в каком месте программы в этот массив были занесены данные, чтобы их здесь можно было записать в файл?

Сообщение от Dmitry_DM

И что из этого следует? WavInfo - переменная глобальная, ее видят все процедуры. Что не так?

Глобальная, но она пустая, так как в неё никто не заносит данные, а раз она пустая, то и Button4Click не может её содержимое сохранить в файл.