Delphi 实现简易语音发音（基于TTS方式）

Delphi 实现简易语音发音（基于TTS方式）
uses Comobj;

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