Помогите разобраться почему не играет...

[JekaDefer]

Привет всем! Пытаюсь вывести звук при помощи DirectSound но почему не играет не соображу никак...
Что в этом коде не так делаю?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MMSystem, DirectSound, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

type
  Int16 = SmallInt;

const Pi = 3.14159265359;
      BitsPerSample = 16;
      SamplesPerSec = 44100;
      MaxVol = 32767;

var
  DS: IDirectSound;
  DSBuffer: IDirectSoundBuffer;
  BufferSize: LongInt;
  wfx: tWAVEFORMATEX;

{$R *.dfm}

function InitiateDirectSound(hDlg: HWND): Boolean;
var
  DSBPrimary: IDirectSoundBuffer;
  DSBD: TDSBufferDesc;
begin
  DirectSoundCreate(nil, DS, nil);
  DS.SetCooperativeLevel(hDlg, DSSCL_PRIORITY);

  FillChar(DSBD, sizeof(TDSBufferDesc), 0);
  DSBD.dwSize := sizeof(TDSBufferDesc);
  DSBD.dwFlags := DSBCAPS_PRIMARYBUFFER;

  DS.CreateSoundBuffer(DSBD, DSBPrimary, nil);

  FillChar(wfx, sizeof(tWAVEFORMATEX), 0);
  with wfx do
  begin
    wFormatTag := WAVE_FORMAT_PCM;
    nChannels := 1;
    nSamplesPerSec := SamplesPerSec;
    wBitsPerSample := BitsPerSample;
    nBlockAlign := (wBitsPerSample shr 3) * nChannels; // = wBitsPerSample * nChannels / 8;
    nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
  end;

  DSBPrimary.SetFormat(@wfx);

  if Assigned(DSBPrimary) then DSBPrimary := nil;

  Result := True;
end;

procedure FreeDirectSound;
begin
  if Assigned(DSBuffer) then DSBuffer := nil;
  if Assigned(DS) then DS := nil;
end;

procedure CreateStaticBuffer(hDlg: HWND);
var
  DSBD: TDSBufferDesc;
begin
  if Assigned(DSBuffer) then DSBuffer := nil;

  FillChar(DSBD, sizeof(TDSBufferDesc), 0);
  DSBD.dwSize := sizeof(TDSBufferDesc);
  DSBD.dwFlags := DSBCAPS_STATIC;
  DSBD.dwBufferBytes := SamplesPerSec * 1; // 1 - 1 сек
  DSBD.lpwfxFormat := @wfx;

  DS.CreateSoundBuffer(DSBD, DSBuffer, nil);

  BufferSize := DSBD.dwBufferBytes;
end;

procedure FillBuffer(Frequency: Word);
var
  bufferBytes: array [0..SamplesPerSec - 1] of Int16;
  lockedSize: DWORD;
  i: Integer;
  pos, r, value: Double;
begin
  //Запираем буфер
  DSBuffer.Lock(0, BufferSize, @bufferBytes, @lockedSize, nil, nil, 0);

  for i := 0 to lockedSize - 1 do
  begin
    //Определяем цикл, в котором находимся
    pos := Frequency / SamplesPerSec * i;
    //Берём остаток и переводим в радианы
    r := (pos - Int(pos)) * 2 * Pi;
    value := sin(r);

    bufferBytes[i] := Round(value * MaxVol);
  end;

  //Отпираем буфер
  DSBuffer.Unlock(@bufferBytes, lockedSize, nil, 0);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  InitiateDirectSound(Handle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateStaticBuffer(Handle);
  FillBuffer(440);
  DSBuffer.Play(0, 0, DSBPLAY_LOOPING);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DSBuffer.Stop();
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeDirectSound;
end;

end.

Проект приложил...

[JekaDefer]

Всё сам разобрался) Ошибка была при заполнении.
надо так было:

procedure FillBuffer(Frequency: Word);
var
bufferBytes: array [0..SamplesPerSec - 1] of Int16;
AudioPtr1: Pointer;
lockedSize: DWORD;
i: Integer;
pos, r, value: Double;
begin
//Запираем буфер
DSBuffer.Lock(0, BufferSize, @AudioPtr1, @lockedSize, nil, nil, 0);

for i := 0 to lockedSize - 1 do
begin
//Определяем цикл, в котором находимся
pos := Frequency / SamplesPerSec * i;
//Берём остаток и переводим в радианы
r := (pos - Int(pos)) * 2 * Pi;
value := sin(r);

bufferBytes[i] := Round(value * MaxVol);
end;
CopyMemory(AudioPtr1, @bufferBytes, lockedSize);
//Отпираем буфер
DSBuffer.Unlock(AudioPtr1, lockedSize, nil, 0);
end;

[megastatus]

да ошибка там был