* Delphi compatibility classes (Patch by Silvio Clecio, bug ID #29917)

git-svn-id: trunk@33362 -

rtl/objpas/sysutils/sysutilh.inc

@@ -217,6 +217,12 @@ type
    EArgumentOutOfRangeException = class(EArgumentException);
    EArgumentNilException = class(EArgumentException);
 
+   EPathTooLongException = class(Exception);
+   ENotSupportedException = class(Exception);
+   EDirectoryNotFoundException = class(Exception);
+   EFileNotFoundException = class(Exception);
+   EPathNotFoundException = class(Exception);
+
    ENoConstructException = class(Exception);
 
    { Exception handling routines }