Gravando sons do microfone com o delphi

Coloque um componente TMediaPlayer que se encontra na pasta System, depois coloque três botões e um edit no Form.
Abra o Gravador de som do Windows e sem gravar nada salve o arquivo vazio como C:SOM.WAV, normalmente este arquivo é temporário até salvar o arquivo pricipal.

Na propriedade Text do Edit1 coloque o arquivo wave que você salvou - C:SOM.WAV

Código:


procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MediaPlayer1.Save;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  MediaPlayer1.FileName := Edit1.Text;
end;


Agora compile o programa e abra-o, clique no Button3 para associar o arquivo que você criou ao MCI, feche todos os aplicativos de midía que estiverem abertos (eles impedem de que abra o MCI) e clique no Button1 para abrir o dispositivo MCI, se algo estiver errado ele não vai abrir, depois de abrir, 4 botões vão ser liberados no TMediaPlayer1, com o microfone ligado clique na bola vermelha para começar à gravar, para pausar a gravação clique no segundo botão o amarelo, e para ouvir o som gravado clique no primeiro botão verde o Play, agora para salvar o arquivo clique no Button2, vá ver o arquivo C:SOM.WAV, antes ele estava vazio agora está com sua gravação.

Credits: 3° página