아래와 같이 해보세여. '삑~' 소리 확실히 납니다.

------------------------------------------------

* 방법 1. Char(#7) 이용 이용...

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;

begin
  Write(#7);
  Readln;
end.


* 방법 2. API 호출...(이 방법이 원하는 답이될 듯)

var
  Form1: TForm1;

function Beep(dwFreq: DWORD; dwDuration: DWORD): Boolean; stdcall; external 'kernel32.dll';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Beep(1000, 1000);
end;

** 잘난척 --> 기존에 Beep 함수가 있는데 이 함수는 내부적으로 MessageBeep에 연결이 되어 있습니다. 따라서 원하시는 PC 스피커에서의 소리는 기대하기 힘들죠. 위와 같이 Kernel32에 정의되어 있는 Beep API함수를 직접 호출해서 쓰시면 됩니다. 함수 인자는 따로 설명을 안드려도 되겠죠?? ㅋㅋ 그럼 즐푸~