delphi 7.0生成的AgentObjects_TLB.pas出错导至Ms Agent不能发声

delphi 7.0生成的AgentObjects_TLB.pas出错导至Ms Agent不能发声

    笔者是一位delphi初学者，操作系统为winxp，安装开发软件为delphi 7.0企业版。看了在<<开发高手

>>第2004年第01期41页的<<汪谈VB在编程中如何实现添加动画小精灵角色>>后，想在delphi上实现上面所

讲到的功能。但是遇到了不少问题：

1、 在Delphi中添加Agent控件

在Delphi IDE中选择菜单Component，Import ActiveX Control——在Import ActiveX下的列表框中选择

Microsoft Agent Control 2.0（Version 2.0），点击按钮Install——在Install对话框中点击按钮OK—

—在Confirm对话框中点击按钮Yes——在对话框中点击按钮OK。至此，Agent控件被添加到Delphi组件板

ActiveX页上。

2、 在Delphi中调用Agent控件

在Delphi IDE 中新建Project1（包含Form1），在Form1上放置Agent1（Name属性为Agent1）、Button1。

private
    { Private declarations }
    Peedy: IagentCtlCharacterEx;
    Request1: IagentCtlRequest;

procedure TForm1.FormShow(Sender: TObject);
begin
Request1:=Agent1.Characters.Load('Peedy',CurDir+'/Benoit.acs&