diff --git a/rtl/objpas/sysutils/sysutilh.inc b/rtl/objpas/sysutils/sysutilh.inc
index 00cb9b3a2b..3f77370064 100644
--- a/rtl/objpas/sysutils/sysutilh.inc
+++ b/rtl/objpas/sysutils/sysutilh.inc
@@ -251,6 +251,7 @@ type
      Path: string;
      constructor Create(const aMsg, aPath: string); overload;
      constructor CreateRes(ResStringRec: PResStringRec; const aPath: string); overload;
+     constructor CreateFmt(const fmt : string;  const args : array of const; const aPath : String); overload;
    end;
 
    EInvalidOpException = class(Exception);
diff --git a/rtl/objpas/sysutils/sysutils.inc b/rtl/objpas/sysutils/sysutils.inc
index 8f53663cf4..114ea37cb3 100644
--- a/rtl/objpas/sysutils/sysutils.inc
+++ b/rtl/objpas/sysutils/sysutils.inc
@@ -320,6 +320,13 @@ begin
   Inherited CreateRes(ResStringRec);
 end;
 
+constructor EInOutArgumentException.CreateFmt(const fmt: string;  const args : array of const; const aPath : String);
+
+begin
+  Path:=aPath;
+  inherited CreateFmt(fmt,args);
+end;
+
 {$if defined(win32) or defined(win64) or defined (wince)}
 function EExternal.GetExceptionRecord: PExceptionRecord;
 begin