{$R Mytlb1.tlb}
{$R Mytlb2.tlb}

1 TYPELIB "Mytlb1.tlb"
2 TYPELIB "Mytlb2.tlb"

procedure TMyFactory.UpdateRegistry(ARegister: Boolean);
var
  LTypeLib: ITypeLib;
  LModule: string;
  LAttr: PTLibAttr;
begin
  LModule := GetModuleName(HInstance);
  if LoadTypeLibEx(PChar(LModule + '\2'), REGKIND_NONE, LTypeLib) <> S_OK then
    LTypeLib := nil;
  if ARegister and (LTypeLib <> nil) then
    RegisterTypeLib(LTypeLib, PChar(LModule), nil);
  inherited UpdateRegistry(ARegister);
  if not ARegister and (LTypeLib <> nil) then begin
    LTypeLib.GetLibAttr(LAttr);
    UnRegisterTypeLib(LAttr^.guid, LAttr^.wMajorVerNum, LAttr^.wMinorVerNum, LAttr^.lcid, LAttr^.syskind);
  end;
end;