Получение данных из аудиофайла

procedure TForm1.Button1Click(Sender: TObject);
var
  r : TWaveResult;
  i : integer;
  W1, W2 : SmallInt;
begin
  if opendialog1.Execute
  then
    r := ReadWave(opendialog1.FileName);
 
  r.Data.seek(0, soFromBeginning);
 
  Form1.Canvas.MoveTo(100, 200);
  for i := 1 to r.Data.Size div 4
  do
   Begin
      r.Data.readBuffer(W1, 2);
      r.Data.readBuffer(W2, 2);
      Form1.Canvas.LineTo(round(100+5000/r.Data.Size*i), round(200+W1/200));
 
   end;
end;

Series1.AddXY(i,w2,'',clgreen);

   f.ReadBuffer(wBytesPerSecond, 4);  
    Form1.memo1.Lines.Add('bps ' + intToStr(wBytesPerSecond));

r.Data.seek(0, soFromBeginning);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;
 
Const
  noError            = 0;
  ReadError          = 1;
  HeaderError        = 2;
  DataError          = 3;
  FileCorrupt        = 4;
  IncorectFileFormat = 5;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Chart1: TChart;
    Series1: TFastLineSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TWaveHeaderChank = record     //Заголвок (чанк) формата
    wFormatTag     : Smallint;
    wChannels      : WORD;
    wSamplesPerSec : Cardinal;
    wAvgBytesPerSec: Cardinal;
    wBlockAlign    : WORD;
    wBitsPerSample : WORD;
    wcbSize        : WORD;
 
  end;
 
  TWaveResult = record          //Минимальная структура
    ERROR          : WORD;      //Используеися для возвращения результата
    wAvgBytesPerSec: Cardinal;  //разбора Wav файла
    wBitsPerSample : WORD;
    wChannels      : WORD;
    Data           : TMemoryStream;
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses math;
 
Function ReadWave(FileName : AnsiString) : TWaveResult;
var
  f             : TFileStream;
  wFileSize     : Cardinal;
  wChankSize    : Cardinal;
  ID            : array[0..3] of Char;
  Header        : TWaveHeaderChank;
  RealFileSize  : Cardinal;
  
  wAvgBytesPerSec: Cardinal;
 
 
 
Begin
  FillChar(Result, SizeOf(Result), 0);
 
  Try
    f := TFileStream.Create(FileName, fmOpenRead);
    f.Seek(0, soFromBeginning);
    f.ReadBuffer(ID[0], 4);       //читаем тип файла
 
    if String(ID) <> 'RIFF'       //Определяем тип файла
    then
      Begin
        Result.ERROR := IncorectFileFormat;
        f.Free;
        exit;
      end;
      Form1.memo1.Lines.Add(String(ID));
       //////////////////////////
     f.ReadBuffer(wAvgBytesPerSec, 4);   //ТО, ЧТО МНЕ НУЖНО
     Form1.memo1.Lines.Add('bps ' + intToStr(wAvgBytesPerSec));
 
    //////////////////////////
    f.ReadBuffer(wFileSize, 4);   //ТО, КАК ВЫВОДИТ АВТОР
    Form1.memo1.Lines.Add('FileSize ' + intToStr(wFileSize));
    //////////////////////////

 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;