[Меченый]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

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?