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

This is Put, a member of class TTntListBoxStrings.