用DelphiFireMonkey写的九宫格小例子