type

  nsIFactory = interface(nsISupports)
  ['{00000001-0000-0000-c000-000000000046}']
    procedure createInstance(aOuter: nsISupports; constref iid: TGuid; out result); safecall;
    procedure lockFactory(lock: longbool); safecall;

  end;