خطأ عند تنفيذ برنامج قديم؟

[ALG2009]

السلام عليكم

عند تنفيذ برنامج قديم يظهر هذا الخطأ  E2003 Undeclared identifier: 'SListIndexError

السطر الذي ظهر فيه الخطأ

كود :

procedure TIniItems.Delete(Index: Integer); begin   if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);   Finalize(FList^[Index]);   Dec(FCount);   if Index < FCount then     System.Move(FList^[Index + 1], FList^[Index],       (FCount - Index) * SizeOf(TIniItem)); end;

الخطأ هنا  @SListIndexError

هل الدالة  Error(@SListIndexError, Index) لم تعد تعمل ؟ وما هو دورها؟لم أفهمها

بحثت ولم أجد سوى هذه الإجابة
الآن هي موجودة في unit RTLConsts ولم تعد موجوده في unit Consts
لم أفهم شيء