Ошибка при выборе движка Anna

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, ACTIVEVOICEPROJECTLib_TLB, StdCtrls,SpeechLib_TLB,
  OleServer, Buttons;
 
type
  TForm1 = class(TForm)
    SpVoice1: TSpVoice;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    play: TBitBtn;
    pause: TBitBtn;
    stop: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure playClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  SOToken: ISpeechObjectToken;
    SOTokens: ISpeechObjectTokens;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.playClick(Sender: TObject);
begin
 //SpVoice1.Voice:=SOTokens.Item(1);  выбирае конкретный движок
 SpVoice1.Speak(Memo1.Text,0);
 
end;
 
 
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
SpVoice1.Voice:=SOTokens.Item(ComboBox1.ItemIndex);   // Выбираем движок
 
end;
 
 
 
procedure TForm1.FormShow(Sender: TObject);
var i: integer;
begin
try
SOTokens := SpVoice1.GetVoices('', ''); // Находим все возможные движки
Label1.Caption:=IntToStr(SOTokens.Count);  //Проверяем кол-во движков в метке
for i := 0 to SOTokens.Count-1  do
begin
SOToken := SOTokens.Item(i);
ComboBox1.Items.AddObject(SOToken.GetDescription(i),TObject(SOTokens));
//SOToken._AddRef;  Хз зачем это
end;
Except on E:Exception do
ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
end;
 
if ComboBox1.Items.Count<>0 then
//Combobox1.ItemIndex:=0;
end;
 
end.