[poli-smen]

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

Можно, пожалуйста, на языке кода, так мне понятнее будет.

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var
  WaveResult: TWaveResult;
begin
  if OpenDialog.Execute then
  begin
    WaveResult := ReadWave(OpenDialog.FileName);
  end;

  if SaveDialog.Execute then
  begin
    WriteWav(SaveDialog.FileName, WaveResult);
  end;
end;