Delphi-PRAXiS - Delphi Eigene Anwendung als Scriptobjekt verwenden?

Hallo,
Es gibt doch dieses TScriptControl, (ActiveX Import) in welchem man auch COM Objekte registrieren kann (AddObject). Die Eigentliche Frage:
Weiß jemand wie man eine COM Fähige Anwendung programmieren kann, also eine Anwendung von welcher Systemweit Werte ausgelesen und gesetzt werden können, zB. per JavaScript.?

Ich hab auch etwas bei der Delphi Code Central gefunden, habe aber noch keine Ahnung wie ich die Objekte in der ScriptCOntrol registrieren kann, das heißt es hat schon funktioniert aber es kommt zu einem Fehler. Hier mal ein Teil vom Quelltext:

Delphi-Quellcode:

			// Zuerst die Typendeklarationen & interfaces

ISubject = interface;

IObserver = interface

['{B9C8A302-8DED-11D3-AE68-0000B4A0959E}']

  procedure UpdateA(theChangedSubject: ISubject);

end;

ISubject = interface

['{B9C8A303-8DED-11D3-AE68-0000B4A0959E}']

  procedure Attach(AObserver: IObserver);

  procedure Detach(AObserver: IObserver);

  procedure Notify;

end;

IClockTimer = interface(ISubject)

['{B9C8A304-8DED-11D3-AE68-0000B4A0959E}']

  function GetTime: TDateTime;

  procedure Tick(Sender: TObject);

end;

TSubject = class(TInterfacedobject, ISubject)

private

  fObservers: TInterfaceList;

protected

  procedure Attach(AObserver: IObserver); virtual;

  procedure Detach(AObserver: IObserver); virtual;

  procedure Notify; virtual;

end;

TClockTimer = class(TSubject, IClockTimer)

  private

    fTimer: TTimer;

    fInternalTime: TDateTime;

  public

    constructor Create;

    destructor Destroy; override;

    function GetTime: TDateTime; virtual; // virtual, überschrieben

    procedure Tick(Sender: TObject);

  end;

TDigitalClock = class(TPanel, IObserver)

private

  fSubject: IClockTimer;

public

  procedure SetClockTimer(Value: IClockTimer);

  procedure UpdateA(theChangedSubject: ISubject); 

end;

Den restlichen FUnktionscode spar ich hier mal, die Funktionen sind alle richtig deklariert. Hier der Befehl mit dem ich das Object in dem TScriptControl registriert habe:

Delphi-Quellcode:

ScriptControl.AddObject('clocktimer', IDispatch( TSubject ), true );

Die Typen stimmen durch die IDispatch umwandlung wieder aber dann kommt es zu einem Fehler. Weiß also jemand wie man Eine Anwendung programmiert die ein object stellt welches man dann z.B. in VBScript aufrufen kann:

'z.B:
dim CustomInterface
set CustomInterface = MyObj.IInterface("MyCustomInterface")

vielleicht hat auch jmd einen Quelltext parat oder ein gutes Tutorial, ich wäre für die hilfe dankbar. weiß is ein schwieriges, aber interessantes thema.