Moved RTF version const inside TRTF.

The global cRTFVersion const exposed by URTFUtils was moved inside TRTF
as a public const named Version.

Updated code that uses this constance in URTFBuilder.

Author: delphidabbler

Src/URTFBuilder.pas

@@ -296,7 +296,7 @@ destructor TRTFBuilder.Destroy;
 
 function TRTFBuilder.DocHeader: ASCIIString;
 begin
-  Result := TRTF.ControlWord(rcRTF, cRTFVersion)
+  Result := TRTF.ControlWord(rcRTF, TRTF.Version)
     + TRTF.ControlWord(rcAnsi)
     + TRTF.ControlWord(rcAnsiCodePage, fCodePage)
     + TRTF.ControlWord(rcDefFontNum, DefaultFontIdx)

Src/URTFUtils.pas

@@ -22,11 +22,6 @@ interface
   UEncodings;
 
 
-const
-  ///  <summary>RTF version.</summary>
-  cRTFVersion = 1;
-
-
 type
   ///  <summary>Enumeration containing identifiers for each supported RTF
   ///  control word.</summary>
@@ -103,6 +98,11 @@   TRTF = record
     ///  </returns>
     class function HexEscape(const Ch: AnsiChar): ASCIIString; static;
 
+  public
+    const
+      ///  <summary>RTF major version number.</summary>
+      Version = 1;
+
   public
 
     ///  <summary>Returns a parameterless RTF control word.</summary>