-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
                       "Звук через Beeper"
-----------------------------------------------------------------------

Приведенный ниже пример кода позволяет получить доступ к системному ди-
намику. В самом начале две процедуры напрямую работают с внешними устр-
ойствами.
-----------------------------------------------------------------------

// Вывод в порт внешнего устройства с адресом-ADR, байта-data 
procedure OutPort(adr: word; data: byte); 
begin 
  asm 
    mov dx,adr 
    mov al,data 
    out dx,al 
  end; 
end; 

// Ввод из порта внешнего устройства с адресом-ADR 
function InPort(adr: word):byte; 
begin 
  asm 
    mov dx,adr 
    in al,dx 
    mov @result,al 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var
  B: Byte; 
  N: Word;
  M: Word; 
begin 
  B := Inport ($61); 
  For N := 1 to 200 do
    begin
      {n:=200 - длительность звучания} 
      {m:=700 - частота звучания} 
      for m:=1 to 700 do Outport($61,b and not(2)); {установить 2-ой бит в 0} 
      for m:=1 to 700 do Outport($61,b or 2); {установить 2-ой бит в 1} 
    end; 
end; 
-----------------------------------------------------------------------