[poli-smen]

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

А как теперь оформить процедуру чтение на button1? Вероятней всего так:

Код:

procedure  TForm1.Button1Click(Sender: TObject);
Var
WaveFormat: TWaveFormat;
begin
  if OpenDialog1.Execute then
  begin
    WaveFormat := ReadWavInfo(opendialog1.FileName);
...
end;
end;

Но ошибка в недостачи параметров. Я что-то упустил?

ReadWavInfo это процедура а не функция. Процедура (в отличие от функции) не возвращает результат (Result).