Delphi的一些实例，给大家共享一下。