* delphi compat fields added to syslocale

git-svn-id: trunk@1028 -

rtl/objpas/sysutils/sysinth.inc

@@ -129,6 +129,11 @@ Const
 
 type
   TSysLocale = record
+    { Delphi compat fields}
+    DefaultLCID,
+    PriLangID,
+    SubLangID  : Integer;
+
     case byte of
       { win32 names }
       1 : (FarEast: boolean; MiddleEast: Boolean);