Inseri no formulário um memo, um botão ler e um botão pausa. O problema é que quando clico no botão ler, o sistema não permite que eu clique em mas nada até que a leitura termine impedindo que eu de PAUSA ou faça qualquer outra coisa. eis o código que estou usando USES COMOBJ; VAR PC: OLEVARIANT; procedure TForm1.FormCreate(Sender: TObject); begin PC:=CreateOleObject('SAPI.SPVoice'); end; procedure TForm1.Button1Click(Sender: TObject); begin PC.Speak(memo1.text); end; procedure TForm1.Button2Click(Sender: TObject); begin PC.PAUSE; end;