FMX下与VCL下遍历控件的差异问题

一直都在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