使用Delphi怎么让主机的喇叭发出提示音

使用Delphi如何让主机的喇叭发出提示音。
使用Delphi如何让主机的喇叭发出提示音？我使用了Beep()，但主机箱还是不发音。而Windows操作系统自己弹出报错提示窗口，或信息窗口时却可以让主机箱发“嘟”音。请问各位是什么原因？如果调用一些函数让主机箱喇叭发音？

[解决办法]

Delphi(Pascal) code

    windows.beep(50,500);裏面的參數可以自定義.
[解决办法]
windows.beep(523,500);
[解决办法]
Delphi(Pascal) code
    windows.beep(1500,500);是尖叫聲, 前面的1500代表聲音赫茲,後面的500代表持續500毫秒.