에러 체크나 알림을 하기 위해서 스피커를 이용하지 않고,
컴퓨터 시스템비프음을 사용하고 싶은데 방법을 모르겠습니다.

아시는 분은 꼭 좀 가르쳐 주세요^^

아래는 유사한 소스를 구해 해봤는데 에러가 나더군요.
함 살펴봐 주세요...

<소스>
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure BeepStart(pitch:SMALLINT);
asm
  mov     bx,  pitch
  mov     ax,  34DDh
  mov     dx,  0012h
  cmp     dx,  bx
  jnb     @stop
  div     bx
  mov     bx,  ax
  in      al,  61h
  test    al,  3
  jne     @j1
  or      al,  3
  out     61h, al
  mov     al,  0B6h
  out     43h, al
@j1:
  mov     al,  bl
  out     42h, al
  mov     al,  bh
  out     42h, al
@stop:
end;

// Sound 중지
procedure BeepStop;
asm
in      al,61H
and     al, 0fcH
out     61H, al
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
BeepStart(100);  // 주파수 싸이클수(양수값만 허용), 높을수록 저음
Sleep(100);      // (delay) 1초간 지연
BeepStop;       
end;

end.