Globales Interface erzeugen

[Mavarik]

Hallo Zusammen!

Ich habe gerade einen "Hänger"..

ich habe ein Interface erzeugt...

Delphi-Quellcode:

  IVVComInterface = interface(IInvokable)
   ['{DDDD293D-1D84-49AC-8B91-9403898D7872}']
    { Methoden von Invokable-Interface dürfen nicht die Vorgabe- }
    { Aufrufkonvention verwenden; stdcall wird empfohlen }
    Function  Commando(Aktion:byte):AnsiString; stdcall;
  end;

Und ein "Server-Form" erzeugt mit:

Delphi-Quellcode:

  TForm47 = class(TForm,IVVComInterface)
...
  InvRegistry.RegisterInterface(TypeInfo(IVVComInterface));

Ein Zugriff auf dieses Interface versuche ich mit:

Delphi-Quellcode:

Var
  ServerLink : IVVComInterface;
  MyGuid     : TGuid;
begin
  MyGuid := StringtoGuid('{DDDD293D-1D84-49AC-8B91-9403898D7872}');
  if QueryInterface(MyGuid,Serverlink) = 0 then
    ServerLink.Commando(1);

Aber das Interface wird nicht gefunden! Was habe ich übersehen?

Grüsse Mavarik