From dcbdb9edd54bb806ba4386245b6dcf08d0ed1edc Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Thu, 22 Jul 2004 08:20:11 +0000
Subject: [PATCH] Fixed: VersionString for Windows Server 2003

---
 X2UtOS.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/X2UtOS.pas b/X2UtOS.pas
index 776f533..c970191 100644
--- a/X2UtOS.pas
+++ b/X2UtOS.pas
@@ -44,8 +44,8 @@ uses
 
 type
   //:$ Enumeration of the recognized Operating System versions
-  TX2OSVersion  =(osWin95, osWin98, osWinME, osWinNT3, osWinNT4,
-                  osWin2K, osWinXP, osWin2003, osUnknown);
+  TX2OSVersion  = (osWin95, osWin98, osWinME, osWinNT3, osWinNT4,
+                   osWin2K, osWinXP, osWin2003, osUnknown);
 
   {
     :$ Contains extended version information for the Operating System
@@ -192,6 +192,7 @@ begin
       osWinNT4:     VersionString := 'NT 4';
       osWin2K:      VersionString := '2000';
       osWinXP:      VersionString := 'XP';
+      osWin2003:    VersionString := 'Server 2003';
       osUnknown:    VersionString := Format('%d.%d', [pVersion.dwMajorVersion,
                                                       pVersion.dwMinorVersion]);
     end;