Воспроизведение текста используя SpeechAPI

[skyll]

Всем привет. Прошу помощи. Написал программу, которая воспроизводит текст. Проблема в том, что воспроизводится только английский текст, хоть при этом и установлены речевые движки поддерживающие русский текст.
Суть вот в чем, как выбрать с пом. функции gpIVTxt.SetVoice другой речевой движок ?

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, SpeechLib_TLB;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  gpIVTxt: ISpVoice;
  Voice: ISpObjectToken;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  Pool: LongWord;
begin
  gpIVTxt := CoSpVoice.Create as ISpVoice;
  gpIVTxt.SetRate(-3);
  //gpIVTxt.SetVoice(Voice);
  gpIVTxt.Speak(PChar(Edit1.Text), SVSFDefault, Pool);
end;

end.

[XE5]

Суть вот в чем, как выбрать с пом. функции gpIVTxt.SetVoice другой речевой движок ?

Ну так посмотрите, какие параметры передаются в функцию. В чём проблема? В коде вижу

Voice: ISpObjectToken;

Наверное объект нужно инициализировать. Пробовали?

[skyll]

Сообщение от XE5

Наверное объект нужно инициализировать. Пробовали?

Делал всё по нескольким примерам. Про инициализацию ничего там не описывалось.

Но в прочем тему можно закрывать. Начал работать с Microsoft Direct Text-To-Speech. Там немного проще и всё понятнее.
Всем спасибо.