[Nyctos Kasignete]

А что, загнать в цикл нельзя? =)

Примерно в таком духе:

Код:

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?