Делфи. посчитать кол-во CheckBox

[slorgi]

Добрый день.
На форме динамически создается N чекбоксов, кол-во которых нужно узнать, это делает код ниже.
Помогите пожалуйста изменить его, что бы считать только 'чекнутые' боксы

procedure TForm1.Button1Click(Sender: TObject);
var x,i:integer;
begin
x:=0;
for i := 0 to Form1.ComponentCount - 1 do
begin
if (Form1.Components[i] is TCheckBox) then inc(x);
end;
showmessage(inttostr(x));
end;

[phomm]

if (Components[i] is TCheckBox) and TCheckBox(Components[i]).Checked then inc(x);

[slorgi]

Спасибо большое.
Скажите, а в анчекед случае как будет выглядеть?

[eval]

есть 2 пути, считать анчекеды, или посчитать чекеды и их вычесть из общего кол-ва, цифры должны совпасть, если не совпадут, то это уже не программирование

[doktor255]

TCheckBox(Components[i]).Checked = true;
TCheckBox(Components[i]).Checked = false;

соответственно. Отсутствие сравнения, это умолчание (true - истина).

[Аватар]

if (Components[i] is TCheckBox) and NOT TCheckBox(Components[i]).Checked then inc(x);

doktor255

Ребус?