procedure Delete(Index: Integer); override;

This is Delete, a member of class TWideSubItems.