Получение данных из аудиофайла - Delphi - Ответ 5790186

 f.ReadBuffer(Header, Min(wChankSize, SizeOf(TWaveHeaderChank))); //×èòàåì çàãîëîâîê
      //////////////////////////               //ìåíüøå íàøåé ñòðóêòóðû
      Form1.memo1.Lines.Add('wFormatTag '     + intToStr(Header.wFormatTag));
      Form1.memo1.Lines.Add('wChannels '      + intToStr(Header.wChannels));
      Form1.memo1.Lines.Add('wSamplesPerSec ' + intToStr(Header.wSamplesPerSec));
      Form1.memo1.Lines.Add('wBlockAlign '    + intToStr(Header.wBlockAlign));
      Form1.memo1.Lines.Add('wBitsPerSample ' + intToStr(Header.wBitsPerSample));
      Form1.memo1.Lines.Add('wAvgBytesPerSec ' + intToStr(Header.wAvgBytesPerSec));

procedure TForm1.Button1Click(Sender: TObject);
var
  r : TWaveResult;
  i : integer;
  W1 : SmallInt;
begin
Series1.clear;
 
  if opendialog1.Execute
  then
    r := ReadWave(opendialog1.FileName);
 
r.Data.seek(0, soFromBeginning);
 
 
  for i := 1 to r.Data.Size  
  do
   Begin
      r.Data.readBuffer(W1, 1);
   
      Series1.AddXY(i,w1,'',clgreen);
     
 
   end;
end;