試試 TForm.ComponentCount;
TForm.Components[X];
var
  i, Count;
begin
  Count:=Form.ComponentCount;
  for i:=0 to Count-1 do begin 
    if (Form.Components[i] is TButton) then begin
      // 
    end;
  end;
end;