[Меченый]

Здравствуйте!Нужно написать программку которая будет воспроизводить музыку (которая запихнута в ресурс,wav фаил) если чекбокс выбран.
В Дельфи я недолго ,но вот написал:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls ,mmsystem;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    CheckBox1: TCheckBox;
    Button1: TButton;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  b:integer;
{$R sounds.res}
implementation

{$R *.dfm}
procedure TForm1.CheckBox1Click(Sender: TObject);

begin
 if CheckBox1.Checked then
    // playsound('snd',0,SND_LOOP)
    b:= 1
 else
    /// playsound('',0,SND_LOOP);
    b:= 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
 begin
 if b=1 then
 playsound('snd',0,SND_LOOP)
 else
  playsound('',0,SND_LOOP);
 end;

end.

но ничего не происходит.Подскажите ,пожалуйста,где моя ошибка?
И ещё может есть функцию которая "лучше" playsound?