首先你得找到报警声的.wav 文件 然后才能做哦

那个wav文件没有，就是要用计算机模拟一下，让计算机持续鸣叫一段时间，然后再等待一段时间，还有别的办法嘛？

实现等待一段时间的函数有吗？

procedure TForm1.Button1Click(Sender: TObject); //执行警报按钮
var
i,s:integer;
begin
s:=24000;
begin
for i:=1 to 3 do //重复3次
begin
Button2Click(Sender);
sleep(s); //停24秒
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
ii:integer;
begin
for ii:=1 to 17 do    //鸣36秒
begin
windows.Beep(2000,500);
windows.Beep(600,500);
windows.Beep(2000,500);
windows.Beep(600,500);
end;
end;

太谢谢了，感动！！！！！！！！