Count Checkbox?

[Tommy1988]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, count: integer;
  c: TComponent;
begin
  for i := 0 to 9 do begin
    c := FindComponent(CheckBox1+inttostr(i)); // das ist die rote zeile
    if (c as TCheckbox).Checked then
      inc(count);
  end;
  ShowMessage('Es sind '+inttostr(count)+' CheckBoxen angeklickt worden');
end;

Inkompatible Typen: 'string' und 'TCheckBox'