procedure PlayWAVfromRES(name:PChar);
 var
 hResource: THandle; //хендл
 pData: Pointer;//указатель на ресурс
begin
 hResource :=LoadResource( hInstance, FindResource(hInstance, name, RT_RCDATA));
 pData := LockResource(hResource);
 SndPlaySound(pData, SND_MEMORY);
 FreeResource(hResource);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   label1.Font.Size:=18;
   label1.Caption:='hello word';

   // возпр. звук
   PlayWAVfromRES('mytrack1');
end;