* Add RangeIndexError (delphi compatible)

rtl/objpas/sysutils/sysutilh.inc

@@ -264,6 +264,7 @@ type
    procedure ListIndexError(aIndex,aMax: Integer; aObj: TObject);
    function ListIndexErrorMsg(aIndex, aMaxIndex: SizeInt; const aListObjName: string): string; overload;
    function ListIndexErrorMsg(aIndex, aMaxIndex: SizeInt; aListObj: TObject): string; overload;
+   procedure RangeIndexError(aIndex, aMaxIndex: SizeInt; aListObj: TObject);
     
 Type
    TBeepHandler = Procedure;

rtl/objpas/sysutils/sysutils.inc

@@ -531,6 +531,12 @@ end;
 
 {$pop} //{$S-} for Error handling functions
 
+procedure RangeIndexError(aIndex, aMaxIndex: SizeInt; aListObj: TObject);
+
+begin
+  raise ERangeError.Create(ListIndexErrorMsg(aIndex,aMaxIndex,aListObj));
+end;
+
 Procedure InitExceptions;
 {
   Must install uncaught exception handler (ExceptProc)