]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ 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

}