[FMX]一个简单的进度对话框

  不说啥,看效果: 调用代码:

源码:

窗体定义: