Обработчик событий PlaySound

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound( 'yak', HInstance, SND_RESOURCE or SND_ASYNC);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  PlaySound( 'du', HInstance, SND_RESOURCE or SND_ASYNC);
end;

  procedure TForm1.Button1Click(Sender: TObject);
begin
  if TComponent(Sender).Name=Button1 then
  PlaySound( 'yak', HInstance, SND_RESOURCE or SND_ASYNC) else
  if TComponent(Sender).Name=Button2 then
  PlaySound( 'du', HInstance, SND_RESOURCE or SND_ASYNC);
end;

type
  ...
    procedure PlaySnd;
  ...
 
implementation
var s:String;
 
{$R *.dfm}
 
procedure PlaySnd;
begin
  PlaySound( s, HInstance, SND_RESOURCE or SND_ASYNC);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  s:='yak';
  PlaySnd;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  s:= 'du';
  PlaySnd;
end;

PlaySound( 'yak', HInstance, SND_RESOURCE or SND_ASYNC)

PlaySound( 'yak.wav', HInstance, SND_RESOURCE or SND_ASYNC);

  s:='yak.wav';
  PlaySnd;

PlaySound( 'yak.wav', HInstance, SND_RESOURCE or SND_ASYNC);

PlaySound( (Sender as TButton).Name, HInstance, SND_RESOURCE or SND_ASYNC);

procedure TForm1.PlaySnd;
begin
  PlaySound( PChar(s), HInstance, SND_RESOURCE or SND_ASYNC);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if N2.Checked then
  s:='yak_Rus' else
  if N3.Checked then
  s:='yak_Eng';
  PlaySnd;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  if N2.Checked then
  s:='du_Rus' else
  if N3.Checked then
  s:='du_Eng';
  PlaySnd;
end;