1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

uses mmSystem; 
{....} 

procedure TForm1.Button1Click(Sender: TObject);     // Record 
begin 
  mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle); 
  mciSendString('SET mysound TIME FORMAT MS ' +     // set time 
    'BITSPERSAMPLE 8 ' +                // 8 Bit 
    'CHANNELS 1 ' +                     // MONO 
    'SAMPLESPERSEC 8000 ' +             // 8 KHz 
    'BYTESPERSEC 8000',                // 8000 Bytes/s 
    nil, 0, Handle); 
  mciSendString('RECORD mysound', nil, 0, Handle) 
end; 

procedure TForm1.Button2Click(Sender: TObject);     // Stop 
begin 
  mciSendString('STOP mysound', nil, 0, Handle) 
end; 

procedure TForm1.Button3Click(Sender: TObject);      // Save 
var  
  verz: String; 
begin 
  GetDir(0, verz); 
  mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle); 
  mciSendString('CLOSE mysound', nil, 0, Handle) 
end;