var
Form1: TForm1;
iv:ivtxtauto;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
iv:=nil;
coinitialize(nil);
olecheck(cocreateinstance(class_vtxtauto_,nil,clsctx_all,iid_ivtxtauto,iv));
iv.Register('demo1','project1.exe');
iv.Set_Enabled(1);
iv.Speak('hello',vtxtsp_veryhigh);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then
iv.Speak(Edit1.Text,100);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
iv._Release;
end;
end.