NAME: TextWidth

     USE:  Function to return the width of the specified string in
           pixels.  Value return is of type word.

     DEPENDENCY:  Must first be in graphics mode.  The unit Graph
                  must also be placed in the uses section.

     SYNTAX: TextWidth(TestString : String);