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