uses MMsystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    PlaySound(PChar(OpenDialog1.FileName), 0, SND_FILENAME);
end;