reproduz tudo que voce escreve

[sem ideia p/ nick]

reproduz tudo que voce escreve, **so funciona no XP** ele usa a voz TIO SAM que esta configurado no painel de controle.

uses ComObj



procedure TForm1.Button1Click(Sender: TObject);
var
voz: OLEVariant;
begin
voz := CreateOLEObject ('SAPI.SpVoice');
voz.Speak ('Hello World!', 0);
end;