uses Comobj;
procedure TTS(TempStr: String);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
voice.Speak(TempStr, 0);
end;
uses Comobj;
procedure TTS(TempStr: String);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
voice.Speak(TempStr, 0);
end;