一直都在VCL下写桌面程序，习惯了VCL的语句。 采用FMX写个APP要遍历一次窗体的复选框checkbox有多少处于选中状态，并显示出来。 用Vcl的代码是：   procedure TForm1.btn1Click(Sender: TObject); var i: Integer; varstr: string; begin with Form1 do for i := 0 to ComponentCount – 1 do begin if ((Components[i] is T