[OctaviaBrony]

Доброго времени суток.

Столкнулся с такой проблемой, при подключении и попытки использовать движек Алёна, у меня получается вот это:


Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

unit Unit1;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, SpeechLib_TLB, Vcl.ComCtrls,   Vcl.StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     TrackBar1: TTrackBar;     TrackBar2: TTrackBar;     VolumeLabel: TLabel;     RateLabel: TLabel;     ListBox1: TListBox;     procedure Button1Click(Sender: TObject);     procedure TrackBar1Change(Sender: TObject);     procedure TrackBar2Change(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure ListBox1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     Voices:ISpeechObjectTokens;   end;     var   Form1: TForm1;   gpIVTxt: TSpVoice;   Voices:ISpeechObjectTokens;   i: integer;     implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin   gpIVTxt.Speak(Memo1.Text,SVSFlagsAsync); end; procedure TForm1.FormCreate(Sender: TObject); begin   gpIVTxt:=TSpVoice.Create(nil);   Voices:=gpIVTxt.GetVoices('','');   for i:=0 to Voices.Count - 1 do     listbox1.Items.Add(Voices.Item(i).GetDescription(0)); end;   procedure TForm1.ListBox1Click(Sender: TObject); begin gpIVTxt.Voice:=Voices.Item(listbox1.ItemIndex); end;   procedure TForm1.TrackBar1Change(Sender: TObject); begin   VolumeLabel.Caption:=IntToStr(TrackBar1.Position);   gpIVTxt.Volume:=TrackBar1.Position;   end;   procedure TForm1.TrackBar2Change(Sender: TObject); begin   RateLabel.Caption:=IntToStr(TrackBar2.Position);   gpIVTxt.Rate:=TrackBar2.Position; end;   end.

SAPI 5.4 если что...
Заранее спасибо)