请高手解答。 ( 积分: 100 )

procedure TForm1.FormCreate(Sender: TObject);
var
Merlin: IagentCtlCharacterEx;
Request:IagentCtlRequest;
begin
Request := MyAgent.Characters.Load('Peedy','Merlin.acs' );
Merlin := MyAgent.Characters.Character('Peedy');
Merlin.Balloon.Style:=$21A00B
//该句出错
Merlin.Show(0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
Merlin: IagentCtlCharacterEx;
Request:IagentCtlRequest;
begin
Request := MyAgent.Characters.Load('Peedy','Merlin.acs' );
Merlin := MyAgent.Characters.Character('Peedy');
Merlin.Balloon.Style:=$21A00B
//该句出错
Merlin.Show(0);
end;

我用的是DELPHI7,在DELPHI4下运行正常。