有TTS语音录音的CB或Delphi代码吗？

[ooolinux]

有TTS语音录音的CB或Delphi代码吗？
这里有个VB的代码，看不太懂：
http://book.51cto.com/art/201107/279520.htm

TTS语音播放倒是很简单：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
Variant VoiceObj = Variant::CreateObject("Sapi.SpVoice");
VoiceObj.OleFunction("Speak",Memo1->Text.c_str());
VoiceObj = Unassigned;
}
catch(...)
{
ShowMessage("微软TTS语音引擎不存在（是否精简版系统？）\n请先安装或修复TTS");
}
}

[ooolinux]

这里有个Delphi的例子，但是不知道 TSpVoice TSpFileStream TSpMemoryStream 这几个类型是包含的什么库？ 链接：https://pan.baidu.com/s/1XVe3rh1pg9ds4HwLlo7gDA 提取码：gr7e 复制这段内容后打开百度网盘手机App，操作更方便哦

[ooolinux]

BCB 6.0：
Project -> Import Type Library->找到Microsoft Speech Object Library (Version 5.0)
点Install..
然后组件面板就有
TSpVoice
TSpFileStream
TSpMemoryStream
等控件了。

[abc_ustone]