FastScript - dem Script ein Interface hinzufügen

[geskill]

Dieses Objekt von dem du sprichst verwende ich im ganzen Programm nicht. (Hoffe ich weiß was du meinst)

Ums ein bisschen zu verdeutlichen:
Also die Instanz von TApplicationImpl merke ich mir nur als Inteface.

Delphi-Quellcode:

var
  IProgrammVariable: IApplication;

procedure Erstellen;
begin
  IProgrammVariable := TApplicationImpl.Create();

  IProgrammVariable.xy;
end;

Später will ich das dann dem Script hinzufügen:

Delphi-Quellcode:

procedure Hinzufügen;
begin
  with FfsScript do
  begin
    with AddClass(TApplicationImpl, 'TApplicationImpl') do
    begin
      AddMethod('procedure xy', CallMethod);
    end;
    AddObject('ScriptVariable', IProgrammVariable);
  end;
end;