FMX常用代码,放到工程中很方便。