Массовое включение CheckBox'ов

[Crunkordie]

Всем привет.
На форме имеются 20 CheckBox'ов. Есть ini файл.

[settings]
kod=01010000010001000100

Необходимо при запуске формы присвоить всем CheckBox'ам в св-во Checked - true или false, в зависимости от данных в ini файле. Делал это так:

procedure TForm4.FormCreate(Sender: TObject);
ini: Tinifile;
S: string[20];
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'config.ini');
S:=Ini.ReadString('settings','kod','100');
if s[1]='1' then   CheckBox1.Checked:=true;
if s[2]='1' then   CheckBox2.Checked:=true;
if s[3]='1' then   CheckBox3.Checked:=true;
if s[4]='1' then   CheckBox4.Checked:=true;
if s[5]='1' then   CheckBox5.Checked:=true;
....
if s[20]='1' then   CheckBox20.Checked:=true;
end;

и т.д.
Вопрос:
Возможно ли как-то в цикле провести эту операцию?

[Пепел Феникса]

FindComponent+поиск.

[Serge_Bliznykov]

дополню ответ Пепла примером:

for i:=1 to Length(s) do
  if TForm4.FindComponent('CheckBox'+IntToStr(i))<>nil then
     TCheckBox(TForm4.FindComponent('CheckBox'+IntToStr(i))).Checked := (s[i] = '1');

[Crunkordie]

Сообщение от Serge_Bliznykov

дополню ответ Пепла примером:

for i:=1 to Length(s) do
  if TForm4.FindComponent('CheckBox'+IntToStr(i))<>nil then
     TCheckBox(TForm4.FindComponent('CheckBox'+IntToStr(i))).Checked := (s[i] = '1');

Спасибо, разобрался с вопросом.