MSAgent Annimationen auflisten

[Jens Schumann]

Hallo,
ich habe ein Problem beim Auflisten der möglichen Annimationen.
Ich verwende folgende Code

Delphi-Quellcode:

Merlin          : IAgentCtlCharacterEx;
...
procedure TFormMerlin.AgentAnimationEnum(L : TStrings);
var
  AEnum           : IEnumVariant;
  AnimationNames  : IAgentCtlAnimationNames;
  Fetch           : Cardinal;
  V               : OleVariant;
begin
  AEnum:=Merlin.AnimationNames.Enum as IEnumVariant;
  AEnum.Reset;
  L.Clear;
  Repeat
    AEnum.Next(1,V, Fetch);
    If VarToStr(V) <> EmptyStr then
      L.Add(V);
  Until Fetch = 0;
end;

Wenn ich den Source mit D5 compiliere läuft die Sache einwandfrei. Verwende ich jedoch D7 erzeugt der
Aufruf von AEnum:=Merlin.AnimationNames.Enum as IEnumVariant; folgenden Fehler.

Code:

Zugriffsverletzung bei der Adresse FFFFFFF

Das Problem ist, das Merlin.AnimationNames ins Leere zeigt.
Kennt jemand eine Lösung für D7?