Озвучивание текста голосом через MS Speech Platform

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "SAPI.h"
 
/*  96749377-3391-11D2-9EE3-00C04F797396 */
const CLSID CLSID_SpVoice= {0x96749377, 0x3391, 0x11D2, {0x9E, 0xE3,0x00,0xC0,0x4F,0x79,0x73,0x96}};
 
/*  6C44DF74-72B9-4992-A1EC-EF996E0422D4 */
const IID IID_ISpVoice  = {0x6C44DF74, 0x72B9, 0x4992, {0xA1, 0xEC,0xEF,0x99,0x6E,0x04,0x22,0xD4}};
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
     ISpVoice * pVoice = NULL;
     if (FAILED(::CoInitialize(NULL)))
     return ;
 
HRESULT hr = CoCreateInstance(CLSID_SpVoice,NULL, CLSCTX_ALL, IID_ISpVoice, (void **)&pVoice);
     if( SUCCEEDED( hr ) )
        {
        hr = pVoice->Speak(L"Hello, world!", 0, NULL);
        hr = pVoice->Speak(L" Привет",0, NULL );
        pVoice->Release();
        pVoice = NULL;
        }
     ::CoUninitialize();
     return ;
}
//---------------------------------------------------------------------------

// Declare local identifiers:
HRESULT                        hr = S_OK;
CComPtr<ISpObjectToken>        cpVoiceToken;
CComPtr<IEnumSpObjectTokens>   cpEnum;
CComPtr<ISpVoice>              cpVoice;
ULONG                          ulCount = 0;
 
// Create the voice.
hr = cpVoice.CoCreateInstance(CLSID_SpVoice);
 
if (SUCCEEDED (hr))
{
   // Enumerate the installed voices.
   hr = SpEnumTokens(SPCAT_VOICES, NULL, NULL, &cpEnum;);
}
 
if (SUCCEEDED (hr))
{
   // Get the number of voices.
   hr = cpEnum->GetCount(&ulCount;);
}
 
// Obtain a list of installed voice tokens, set
// the voice to the token, and call Speak.
while (SUCCEEDED(hr) && ulCount--)
{
   cpVoiceToken.Release();
 
   if (SUCCEEDED (hr))
   {
      hr = cpEnum->Next(1, &cpVoiceToken;, NULL);
   }
 
   if (SUCCEEDED (hr))
   {
      hr = cpVoice->SetVoice(cpVoiceToken);
   }
 
   if (SUCCEEDED (hr))
   {
      hr = cpVoice->Speak( L"How are you?", SPF_DEFAULT, NULL );
   }
 
}
 
if (SUCCEEDED (hr))
{
   // Do more stuff here.
}