Procedure
      FormatVar(StIn:String;Var StOut:String;Size:Byte;Format:TextFormats);

    This formats the string to  a  specific  size,  Size.  The string can
    be either  padded  to  the  left  or  right,  or  the  string  can be
    centred.  Format must be one of

         LeftText
         CentreText
         RightText

    Example

    FormatVar('ABC',StOut,7,CentreText) = StOut:='  ABC  ';