diff --git a/rtl/win/sysos.inc b/rtl/win/sysos.inc
index eff12f30ec..706da819fe 100644
--- a/rtl/win/sysos.inc
+++ b/rtl/win/sysos.inc
@@ -106,6 +106,8 @@ const
     ERROR_DIR_NOT_EMPTY = 145;
     ERROR_ALREADY_EXISTS = 183;
 
+    EXCEPTION_MAXIMUM_PARAMETERS = 15;
+
 type
    {UINT  = longint;
    BOOL  = longint; obsolete }
@@ -173,6 +175,17 @@ type
     flags : dword;
   end;
 
+  PExceptionRecord = ^TExceptionRecord;
+  TExceptionRecord = record
+    ExceptionCode   : cardinal;
+    ExceptionFlags  : cardinal;
+    ExceptionRecord : PExceptionRecord;
+    ExceptionAddress : Pointer;
+    NumberParameters : Longint;
+    ExceptionInformation : array[0..EXCEPTION_MAXIMUM_PARAMETERS-1] of Pointer;
+  end;
+
+
 threadvar
   errno : longint;
 
diff --git a/rtl/win/syswin.inc b/rtl/win/syswin.inc
index c87b4fb09d..7639d754fa 100644
--- a/rtl/win/syswin.inc
+++ b/rtl/win/syswin.inc
@@ -85,8 +85,6 @@ const
   EXCEPTION_CONTINUE_EXECUTION            = -1;
   EXCEPTION_CONTINUE_SEARCH               = 0;
 
-  EXCEPTION_MAXIMUM_PARAMETERS            = 15;
-
   CONTEXT_X86                             = $00010000;
   CONTEXT_CONTROL                         = CONTEXT_X86 or $00000001;
   CONTEXT_INTEGER                         = CONTEXT_X86 or $00000002;
diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index d048685b7f..468780c68b 100644
--- a/rtl/win32/system.pp
+++ b/rtl/win32/system.pp
@@ -339,16 +339,6 @@ type
           ExtendedRegisters : array[0..MAXIMUM_SUPPORTED_EXTENSION-1] of Byte;
   end;
 
-type
-  PExceptionRecord = ^TExceptionRecord;
-  TExceptionRecord = packed record
-          ExceptionCode   : cardinal;
-          ExceptionFlags  : Longint;
-          ExceptionRecord : PExceptionRecord;
-          ExceptionAddress : Pointer;
-          NumberParameters : Longint;
-          ExceptionInformation : array[0..EXCEPTION_MAXIMUM_PARAMETERS-1] of Pointer;
-  end;
 
   PExceptionPointers = ^TExceptionPointers;
   TExceptionPointers = packed record
diff --git a/rtl/win64/system.pp b/rtl/win64/system.pp
index 3ce9b67ea1..180ce6b66d 100644
--- a/rtl/win64/system.pp
+++ b/rtl/win64/system.pp
@@ -338,16 +338,6 @@ type
  end;
 
 type
-  PExceptionRecord = ^TExceptionRecord;
-  TExceptionRecord = record
-    ExceptionCode   : DWord;
-    ExceptionFlags  : DWord;
-    ExceptionRecord : PExceptionRecord;
-    ExceptionAddress : Pointer;
-    NumberParameters : DWord;
-    ExceptionInformation : array[0..EXCEPTION_MAXIMUM_PARAMETERS-1] of Pointer;
-  end;
-
   PExceptionPointers = ^TExceptionPointers;
   TExceptionPointers = packed record
     ExceptionRecord   : PExceptionRecord;
diff --git a/rtl/wince/system.pp b/rtl/wince/system.pp
index 70af8bffbe..b5bb046e14 100644
--- a/rtl/wince/system.pp
+++ b/rtl/wince/system.pp
@@ -981,8 +981,6 @@ const
 
   CONTEXT_FULL                    = CONTEXT_CONTROL or CONTEXT_INTEGER or CONTEXT_SEGMENTS;
 
-  EXCEPTION_MAXIMUM_PARAMETERS    = 15;
-
   NUM_VFP_REGS = 32;
   NUM_EXTRA_CONTROL_REGS = 8;
 
@@ -1030,7 +1028,6 @@ const
   CONTEXT_EXTENDED_REGISTERS      = CONTEXT_X86 or $00000020;
 
   MAXIMUM_SUPPORTED_EXTENSION     = 512;
-  EXCEPTION_MAXIMUM_PARAMETERS    = 15;
 
 type
   PFloatingSaveArea = ^TFloatingSaveArea;
@@ -1101,16 +1098,6 @@ type
 {$endif CPUI386}
 
 type
-  PExceptionRecord = ^TExceptionRecord;
-  TExceptionRecord = packed record
-    ExceptionCode   : Longint;
-    ExceptionFlags  : Longint;
-    ExceptionRecord : PExceptionRecord;
-    ExceptionAddress : Pointer;
-    NumberParameters : Longint;
-    ExceptionInformation : array[0..EXCEPTION_MAXIMUM_PARAMETERS-1] of Pointer;
-  end;
-
   PExceptionPointers = ^TExceptionPointers;
   TExceptionPointers = packed record
     ExceptionRecord   : PExceptionRecord;