procedure InsertObject(Index: Integer; const S: WideString; AObject: TObject); virtual;

This is InsertObject, a member of class TTntStrings.