delphi模仿iphone的界面实现例子，支持图标拖拽，可设置图标数量等-delphi imitate iphone interface example, support drag the icon, you can set the number of icons