А что, загнать в цикл нельзя? =)
Примерно в таком духе:
Код:
var
chkBox: TCheckBox;
i: Byte;
IniFile: TIniFile;
begin
IniFile := TIniFile.Create(path+'Inifile.ini');
for i := 1 to 237 do
begin
chkBox := FindComponent('a' + IntToStr(i));
if chkBox = nil then Continue;
IniFile.WriteBool('Param', 'A' + IntToStr(i), (chkBox as TCheckBox).Checked);
end;
...
P.S. Я так понимаю, что вы записываете состояние флажков CheckBox?