procedure PutObject(Index: Integer; AObject: TObject); virtual;

This is PutObject, a member of class TTntStrings.