注意：XE7 已修正这个问题。
Delphi Firemonkey TListView 提供了搜寻的功能，但在 XE6 以前的版本，可以显示右边的清除按钮，在 XE6 确消失了，这里提供一个修正的方案，供大家参考。
1、放一个 TListView 后，将 SearchVisible 设为 True ，就能看到上方的搜寻功能。
2、运行后，在没有输入任何文字的情况下，不会有右边的清除按钮。
3、输入一些文字后，就能看到右边的清除按钮，。
修正方法：
请将源码 FMX.Edit.pas 复制到自己的工程目录里，再进行修改。
找到TSearchBox.DoChangeTracking 函数，在最后加入一行，如下：
Box.DoChangeTracking;
= FResponder <> (X: == EmptyStr) RealignButtonsContainer; //;