1.新建多设备运用程序工程
2.选择空白的运用
3.代码如下，点击运行，可以看到运行平台
关键代码：
1 procedure TForm1.Button1Click(Sender: TObject); 2 begin 3 {$IFDEF IOS} 4 ShowMessage (‘Running on iOS‘); 5 {$ENDIF} 6 7 {$IFDEF ANDROID} 8 ShowMessage (‘Running on Android‘); 9 {$ENDIF} 10 11 {$IFDEF MSWINDOWS} 12 ShowMessage (‘Running on Windows‘); 13 {$ENDIF} 14 end
原文：http://www.cnblogs.com/GodPan/p/4904530.html