ALLText has built in ( undocumented) function to retrieve all font names 
supported on the system.

         Property :    GetFontNameByIndex
         Description - This property returns a list of font names supported on
                             the machine where ALLText is currently running.
         Syntax
              strSomFontName = ATX451.GetFontNameByIndex( intFontNumber)

         Sample Code

                Dim strSomeFontName as String
                Dim iFontNumber as Integer
                For iFontNumber  = 1 To 200
                   strSomeFontName = ATX451.GetFontNameByIndex( iFontNumber )
                   If strSomeFontName = "" Then Exit For
                   Combo1.AddItem  strSomeFontName
                   Next iFontNumber 
