¿Cómo obtener el GIT en Delphi 7?

Estoy tratando de obtener la Tabla de Interfaz Global utilizando el siguiente código (Delphi):

uses Comobj, ActiveX;

var
   cGIT : IGlobalInterfaceTable = NIL;
const
   CLSID_StdGlobalInterfaceTable: TGUID = '{00000146-0000-0000-C000-000000000046}';


function GIT : IGlobalInterfaceTable;
begin
   if (cGIT = NIL) then
      OleCheck (CoCreateInstance (CLSID_StdGlobalInterfaceTable, NIL,
                                  CLSCTX_ALL, IGlobalInterfaceTable, cGIT ));
  Result := cGIT;
end;

Sin embargo, CoCreateInstance lanza una excepción "Clase no registrada". Y de hecho: en HKCR / CLSID no hay ninguna entrada para {00000146- etc.}.

¿Qué dll u ocx se debe registrar para obtener esta definición en el registro? ¿O lo estoy haciendo totalmente mal?

Respuestas a la pregunta(3)

Su respuesta a la pregunta