如何用pc喇叭发声？(10分)

如何用pc喇叭发声？（指定相应的频率和时间）
turbo pascal好像有相应的函数但在delphi中找不到了。

old method
beep. messagebeep .. u can see the help.

让你的电脑发出'滴'声
messagebeep(0);

http://vcl.vclxx.com/DELPHI/D32FREE/TPCSPK.ZIP

这两个函数可以：
procedure sound(mhz : integer);
{mhz = the frequency of the pc speaker}
var
count : word;
oldport,
newport : byte;
begin
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;
end;

procedure nosound;
{turn off the pc speaker}
begin
asm
mov al,0
out $61,al
end;
end;

接受答案了.