Microsoft Agent Character и Delphi под Windows 7

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, AgentObjects_TLB;
 
type
  TForm1 = class(TForm)
    Agent1: TAgent;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     procedure WaitFor(Request:IAgentCtlRequest); //õç ÷òî äåëàåò íî íóæíà äëÿ âûâîäà ñîîáùåíèé
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
Character:IAgentCtlCharacter;
Request: IAgentCtlRequest;
Const
AGENT ='nn';
AGENTPATH = 'Merlin.acs'; //Путь
 
implementation
 
{$R *.dfm}
 
 
  procedure TForm1.WaitFor(Request:IAgentCtlRequest);
  var
    Status:LongInt;
  begin
    repeat
      Application.ProcessMessages;
      Status := Request.Get_Status;
    until (Status <> 2) and (Status <> 4);
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Agent1.Connected:=true;
Request:=Agent1.Characters.Load(Agent,AgentPath);
Character:=Agent1.Characters.Character(Agent);
Request := Character.Show(False);
WaitFor(Request);
Request := Character.Play('GetAttentionReturn');
Request := Character.Speak('Привет',EmptyParam);
 
end;
end.