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;