NAME: Length

     USE: Returns the dynamic length of a specified string.

     DEPENDENCY:  None

     SYNTAX: Length(StringValue : String);

     EXAMPLE:   Program LengthTest;
                Var
                   StringValue : String;
                   Loop        : Byte;

                Begin
                   if ParamCount > 1 then
                      StringValue := ParamStr(1)
                   else Halt;
                   For Loop := 1 to Length(StringValue) do
                      StringValue[Loop] := UpCase(StringValue[Loop]);
                end.