Desenvolvendo aplicativo que Fala em Delphi!

Bem, depois de algum tempo sem postar nada, vamos fazer um aplicativo simples onde digitamos um texto e ao clicar no botão a aplicação falará.

Monte o form como na imagem abaixo:

Entre no botão(fala) e suba até a seção uses e declare Comobj.

No botão coloque o seguinte código em negrito:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var voz: OLEVariant;
begin
voz:=CreateOLEObject('SAPI.SpVoice');
voz.Speak(Edit1.Text, 0);
end;

Agora é só executar e ao digitar o texto e clicar no botão com a ajuda do seu sistema operacional o texto será falado.

OBS.: se sei sistema estiver com o pacote de idiomas em inglês o texto será dito nesse idioma.