procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    tone:integer;
begin
  Canvas.FillRect(ClientRect);
  Canvas.Pen.Width:=2;
  Canvas.MoveTo(0,0);

  for i:=0 to 300 do
  begin
    tone:=Floor ( sin(i/20) * 100 +100);
      Canvas.Pen.Color:=RGB(255,255-tone,255);
      Canvas.lineTo(i*2, tone);

      Application.ProcessMessages;
      Windows.Beep(tone+100,60);
  end;
end;

Structure WaveHeader; WAVE File header structure.
RIFF.l      ; RIFF Identification - Value: 'RIFF'
Length.l    ; Length of the file minus 8 bytes.
WAVE.l      ; RIFF Type Identification - Value: 'WAVE'
FMT.l       ; Type of the following header - Value: 'fmt '
HLen.l      ; Length of the following header - Value: 16
PCM.u       ; PCM Identification - Value: 1 (for PCM sound)
Channels.u  ; Number of Channels - Value: 1(mono)|2(stereo)
SR.l        ; Sampling Rate - Value: 22050, 44100, etc.
BS.l        ; Average number of Bytes/Second - Value: 22050, 44100, etc.
SL.u        ; Sample Lenght - Value: 1 (1 byte per sample)
BR.u        ; Bit Recording - Value: 8 or 16
HS.l        ; Start of Data Header - Value: 'data'
Samples.l   ; Number of Data Samples (1 per byte).
BinData.a[0]; Actual Data Samples (binary stream).
EndStructure

#Second = 1000  ; Миллисекунд.
#Length  = 5    ; Время записи (секунд).
#Samples = 44100; 44.1 kHz (samples/second).
Define Buffer.s{#MAXBYTE}; Буффер выходных данных MCI.
Define Elapsed           ; Прошедшее время по данным MCI.
#Pattern = "Sound files (*.wav)|*.wav|All files (*.*)|*.*"; Шаблон.
Macro MCI(command) : mciSendString_(command, @buffer, #MAXBYTE, 0) : EndMacro; Pseudo-procedure
Macro IntSize : SizeOf(Integer) : EndMacro : Macro BPS : Str(#Samples * IntSize) : EndMacro; Partializers.
MCI("open new type waveaudio alias recsound") : MCI("set recsound time format ms"); Первичная подготовка записи.
MCI("set recsound alignment "+Str(IntSize)+" bitspersample 16 samplespersec "+Str(#Samples)+" channels 2 bytespersec "+BPS)
MCI("record recsound") : Debug "==[Record intitated (" + Str(#Length) + " seconds)]=="; Начинаем цикл записи:
While Elapsed < 5 * #Second : MCI("status recsound position") : Elapsed = Val(Buffer) : Delay(20) : Wend
Debug "==[Record complete]=="; Рапортуем конец записи и спрашиваем, куда сохранить:
Define Clip.s = Trim(SaveFileRequester("Choose location to save sound:", "", #Pattern, 0))
MCI("save recsound " + #DQUOTE$ + Clip + #DQUOTE$) : MCI("close recsound")