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

This is PutObject, a member of class TWideSubItems.