Проблема с файлами ini

[WinMen]

Тему отредактировал, модераторы - вы молодцы
После введения кода:

procedure TForm1.FormCreate(Sender: TObject);
begin
one := 'Settings';
Povtor := 'Povtor';
tinifile.create(ExtractFilePath(App lication.ExeName) + 'jimp.ini');
inifile.readstring(one,Povtor,i);
inifile.free;
if i = 'True' then
begin
CheckBox1.Checked := true
end;
if i = 'False' then
begin
CheckBox1.Checked := false
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin
tinifile.create(ExtractFilePath(App lication.ExeName) + 'jimp.ini');
if CheckBox1.Checked = true then
begin
i := 'True';
end;
if CheckBox1.Checked = false then
begin
i := 'False';
end;
inifile.writestring(one,Povtor,i);
inifile.free;


end;

Выдает ошибку
http://s013.radikal.ru/i323/1011/37/b4dbce8a6aee.jpg
Что не так?

[pupkinsoft]

все так, только не работает

procedure TForm1.FormCreate(Sender: TObject);
var
  i:Boolean;
  ini:TIniFile;
begin
  one := 'Settings';
  Povtor := 'Povtor';
  ini:=tinifile.create(ExtractFilePath(App lication.ExeName) + 'jimp.ini');
  i:=ini.readbool(one,Povtor,true);//или false в конце - это на случай если в секции Settings, значении Povtor ничего нет 
  inifile.free;
  if i  then CheckBox1.Checked := true
  else CheckBox1.Checked := false;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:boolean
  ini:TiniFile;
begin
  ini:=tinifile.create(ExtractFilePath(App lication.ExeName) + 'jimp.ini');
  ini.writebool(one,Povtor,CheckBox1.Checked);
  ini.free;
end;

должно работать, не проверял.
-----------------------------------------
в догонку http://programmersforum.ru/showthread.php?t=120429

[WinMen]

pupkinsoft, спасибо большое все работает!

[Alter]

Настоятельно советую почитать:
Работа с INI файлами
Работа с *.INI - файлами
INI файлы
Ещё...