[Dmitry_DM]

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

Правильно, здесь. Только в этом месте WavInfo это никакая не глобальная переменная, а формальный параметр процедуры ReadWavInfo:

Код:

procedure ReadWavInfo(const FileName: string; var WavInfo: TWavInfo);

А фактически, здесь будет участвовать переменная, которую сюда подставит тот, кто вызовет процедуру ReadWavInfo, а вызов этой процедуры происходит здесь:

Код:

procedure  TForm1.Button1Click(Sender: TObject);
...
begin
...
      ReadWavInfo(OpenDialog1.FileName, FWavInfo);
...
end;

Итого получается следующее:
Button1Click - читает wav-файл и записывает информацию о нём в переменную FWavInfo.
Button4Click - пытается прочитать переменную WavInfo чтобы записать её содержимое в файл, но у Button4Click конечно же ничего не получается, так как в переменную WavInfo данные никто не заносил.

Дааа, это прискорбно.. Из-за одной буквы все меняется. Только когда я делаю так

Код:

procedure  TForm1.Button1Click(Sender: TObject);
...
begin
...
      ReadWavInfo(OpenDialog1.FileName, WavInfo);
...
end;

То естественно график не рисуется. А разве переменные FWavInfo и WavInfo не должны связываться здесь?:

Код:

FWavInfo: TWavInfo;