procedure Put(Index: Integer; const S: WideString); virtual;

This is Put, a member of class TTntStrings.