msagent的用法，谁知道？(50分)

请给出简单的代码

var
Clippit: iagentctlcharacterex;
request1,request2: iagentctlrequest;


procedure TForm1.Button1Click(Sender: TObject);
begin

request1 := myagent.characters.load( 'Clippit', 'D:/Clippit.acs' );
Clippit := myagent.characters.character( 'Clippit' );
// myagent.characters.unload('Clippit');
Clippit.show(0);
{ Clippit.hide(1);
Clippit.stopall('');
Clippit.stop(request);
}

Clippit.speak('嗨，朋友们，你们好，现在由我为您提供帮助！','D:/help.wav');


end;

谢谢谢谢