diff --git a/jcl/source/common/JclSysInfo.pas b/jcl/source/common/JclSysInfo.pas
index f43ac9fbf..58fa7718d 100644
--- a/jcl/source/common/JclSysInfo.pas
+++ b/jcl/source/common/JclSysInfo.pas
@@ -203,6 +203,7 @@ function GetDomainName: string;
 {$IFDEF MSWINDOWS}
 function GetRegisteredCompany: string;
 function GetRegisteredOwner: string;
+function GetWindowsProductId: string;
 function GetBIOSName: string;
 function GetBIOSCopyright: string;
 function GetBIOSExtendedInfo: string;
@@ -2471,6 +2472,15 @@ function GetRegisteredOwner: string;
     Result := ReadWindowsCurrentVersionStringValue('RegisteredOwner', '', True);
 end;
 
+function GetWindowsProductId: string;
+begin
+  { TODO : check for MSDN documentation }
+  if IsWinNT then
+    Result := ReadWindowsNTCurrentVersionStringValue('ProductId', '', True)
+  else
+    Result := ReadWindowsCurrentVersionStringValue('ProductId', '', True);
+end;
+
 { TODO: Check supported platforms, maybe complete rewrite }
 
 function GetUserDomainName(const CurUser: string): string;