LOCATE FOR Type="H"
      STORE "" TO lcComment,lcProjName
      IF FOUND()
         lcRes2=Reserved2 && Informace o OLE public classes
         lcProjName = Key
         ltTimeStamp=TimeStamp
         lcHomeDir=HomeDir
         llDebug=Debug
         llEncrypt=Encrypt
         lcAuthor = StrTranHTMLString(NullTermined(LEFT(DevInfo,46-1)))
         lcCompany = StrTranHTMLString(NullTermined(SUBS(DevInfo,47,46-1)))
         lcAddress = StrTranHTMLString(NullTermined(SUBS(DevInfo,93,46-1)))
         lcCity = StrTranHTMLString(NullTermined(SUBS(DevInfo,139,21-1)))
         lcState = StrTranHTMLString(NullTermined(SUBS(DevInfo,110,6-1)))
         lcPostalCode = StrTranHTMLString(NullTermined(SUBS(DevInfo,166,11-1)))
         lcCountry = StrTranHTMLString(NullTermined(SUBS(DevInfo,177,46-1)))

         lcComments=StrTranHTMLString(NullTermined(SUBS(DevInfo,223,255-1)))
         lcCompanyName=StrTranHTMLString(NullTermined(SUBS(DevInfo,478,255-1)))
         lcFileDescription=StrTranHTMLString(NullTermined(SUBS(DevInfo,733,255-1)))
         lcLegalCopyright=StrTranHTMLString(NullTermined(SUBS(DevInfo,988,255-1)))
         lcLegalTrademarks=StrTranHTMLString(NullTermined(SUBS(DevInfo,1243,255-1)))
         lcProductName=StrTranHTMLString(NullTermined(SUBS(DevInfo,1498,255-1)))

         lcPom=SUBS(DevInfo,1753,15-1)
         lcVersion=NullTermined(LEFT(lcPom,4))+"."+NullTermined(SUBS(lcPom,6,4))+"."+NullTermined(SUBS(lcPom,11,4))
         lcLanguageID=StrTranHTMLString(NullTermined(SUBS(DevInfo,1768,20-1)))