如何让系统声音变调和延迟？(100分)

1.我用showmessage(0)让系统发出声音，可它无法长鸣，只能自顾不短暂的叫
一下，就不响，除非你再次激活它。
2.系统的声音很难听，我想唤成其它的自己喜欢的，可以吗？

在delphi安装盘中搜索BleepInt.pas文件，
将文件加到你的工程中，仔细阅读此文件，一切都能搞定

gz

参考以下循环事例:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,crt;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
hz:word;
count:word;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
repeat;
count:=count+1;
hz:=262;
while hz<=524do
begin
sound(hz);
delay(2000);//延迟2秒
hz:=hz+1;
end;
until
count=10;
nosound;
end;

end.

有用吗?

做个wav文件，随便怎么都能播放。
uses mmsystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
sndplaysound('C:/WINNT/Media/RECYCLE.WAV', SND_ASYNC);
end;

可以的，你去delphi帮助里看看吧！！！