如何让机器发出蜂鸣声(20分)

当系统完成某一功能是想通过机器的蜂鸣声提示动作已完成
如何让机器发出一下蜂鸣声
望指教，谢谢

用Beep函数

Windows.Beep(261,1000);

procedure Sound(mhz: integer); {打开PC喇叭，只适用于Win9X}
var
count: Word;
begin
try
count := 1193280 div mhz;
asm
mov al,$b6
out $43,al
mov ax,count
out $42,al
mov al,ah
out $42,al
mov al,3
out $61,al
end;
except
;
end;
end;

procedure NoSound; {关闭PC喇叭，只适用于Win9X}
begin
asm
mov al,0
out $61,al
end;
end;

procedure NTSound(Sender: TObject);
begin
{对 Windows NT 有效 2K/XP
第一个参数：37 ~ 32,767 之间 代表发声频率
第二个参数：单位为毫秒 代表发声时间长度 }
Windows.Beep(2000,200);
end;

beep函数

必须要加windows,也就是调的windows单元中的beep api
不然会调DELPHI的BEEP，就不是PCSPEAKER发声了。

多人接受答案了。