beepex

sound: procedure BeepEx(feq:word=1200;delay:word=1);
procedure BeepOff;
begin
asm
in al,$61;
and al,$fc;
out $61,al;
end;
end;
const
scale=1193180;
var
temp:word;
begin
temp:=scale div feq;
asm
in al,61h;
or al,3;
out 61h,al;
mov al,$b6;
out 43h,al;
mov ax,temp;
out 42h,al;
mov al,ah;
out 42h,al;
end;
sleep(delay);
beepoff;
end;
用嵌入汇编的方式，
下面是我在C++Builder编的扬声器发声片段，
与DELPHI 是姐妹语言， 我想可能差不多，
供你参考.
void Sound(int f) // 发音, 频率f
{
__int16 B=1193180/f;
asm in AL,61H; // 从端口B取数
asm or AL,3; // 两低位置1
asm out 61H,AL; // 返给端口B
asm mov AL,0B6H; // 通道2位图,2B,M3,B2
asm out 43H,AL; // 送指令寄存器
asm mov AX,B; // 计数: 1193180/F
asm out 42H,AL; // 送低有效位LSB
asm mov AL,AH;
asm out 42H,AL; // 送高有效位MSB
}
void SoundOff() // 关闭声音
{
asm in AL,61H; // 取端口B的字节
asm and AL,0FCH; // 强制置两位为0
asm out 61H,AL; // 返送端口B
}