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

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