procedure TForm3.Button1Click(Sender: TObject);
var sFileName:string;
begin
  sFileName:=TPath.Combine(TPath.GetDocumentsPath,'禁止吸烟.wav');
  showmessage(sFileName);
  MediaPlayer1.Stop ;
  MediaPlayer1.FileName:=  sFileName;
  MediaPlayer1.Play;
end;