Ини файл ошибка(глюк или что?)

[dr.Chas]

Ситуация такая:
Программка которую пишу большая, так что я иногда некоторые процедуры отлаживаю, в новой программе, т.е создаю программу, делаю такие же условия там, доделываю процедуры, потом переношу в основную. Так вот сделал пару процедур, переношу в основную программу, всё так же, перепроверил, всё тоже самое, индентично. В одной работает это, а в другой вот такая ошибка

Это бяка вылазиет в событие close формы

Ini:=TIniFile.Create(Application.GetNamePath+IniFName);
for i:=1 to MainMenu1.Items.Items[0].Items[9].Count do
  Ini.WriteString('History', 'Open_'+IntToStr(i), MainMenu1.Items.Items[0].Items[9].Items[i-1].Caption);
Ini.Destroy;

После первой работы цикла.
Может кто знает что это может быть? Суть ошибки я понял, но не могу понять её причину

[N!ckeL]

Возможно файл занят другой программой, если нет значит убери Ini.Destroy и добавь его в Form.OnDestroy.

[dr.Chas]

Сообщение от N!ckeL

Возможно файл занят другой программой, если нет значит убери Ini.Destroy и добавь его в Form.OnDestroy.

Нет к сожалнею проблема в другом. Для полноты картины ща напишу по подробнее:
Процедура create:

procedure TForm1.FormCreate(Sender: TObject);
begin
    s:='';
    //IniFName:=Application.GetNamePath+'Fails\history.ini'; 1) способ
    IniFName:='history.ini';   //2) способ
    MainMenu1.Items[0].Items[9].Enabled:=false;
    if FileExists({Application.GetNamePath+IniFName}IniFName) then
    begin
      Ini:=TIniFile.Create({Application.GetNamePath+}IniFName);
      for i:=0 to 10 do
      begin
        s:=Ini.ReadString('History', 'Open_'+IntToStr(i),'');
        //дальше не буду с этим всё нормально
      end;
      Ini.Destroy;
    end;
end;

Процедура close:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Ini:=TIniFile.Create({Application.GetNamePath+IniFName || Способ 1}   IniFName{способ 2});
    for i:=1 to MainMenu1.Items.Items[0].Items[9].Count do
      Ini.WriteString('History', 'Open_'+IntToStr(i), 
       MainMenu1.Items.Items[0].Items[9].Items[i-1].Caption);
    Ini.Destroy; 
end;

Я там сделал метки:
1 способ - в событие close вылазила вот та ошибка которую я описывал выше;
2 способ - т.е. задавал просто имя файла, значит файл записываеться в папку Windows. Так теперь не работает это

if FileExists(IniFName) then

Функция FileExists - проверяет существует ли такой файл, если да то true. А она даёт false хотя там этот же файл. Зато теперь клосе работает нормально.

За то в первой программе всё работает без ошибок как надо. Кто нибудь знает что это?
P.S.: Сори если много написал, но я уже не понимаю что это

[Ring0Sn]

в первом способе вместо

  Ini:=TIniFile.Create({Application.GetNamePath+IniFName || Способ 1}   IniFName{способ 2});

напиши вот это:

Ini:=TIniFile.Create(IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0))) + IniFName);

у тебя в путях косяк..., а точнее Application.GetNamePath в твоем случае ничего невозвратит

[Arteom]

Я бы советовал делать так:
try
ini_file := TIniFile.Create(extractfilepath(par amstr(0)) + 'history.ini' );
finally
ini_file.free;

[Ring0Sn]

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

Я бы советовал делать так:
try
ini_file := TIniFile.Create(extractfilepath(par amstr(0)) + 'history.ini' );
finally
ini_file.free;

Неправильно советуешь то...
В твоем случае если ini_file неинициализируеться (ну например у тебя нету прав для записи на диск),
произойдет выход из блока try, и выполниться finally, а там дадут по рукам, за то что хочешь уничтожить обьект, ктр не создан

[Arteom]

Согласен, это тут не учтено, но для большинства случаев подходит и на мой взгляд очень удобно.

[mutabor]

А это зачем? Ini.Destroy;
Дельфи справку хоть раз читал? Не вызывайте Destroy напрямую, вызывайте вместо этого Free, это всех объектов касается.

Путь к программе: ExtractFilePath(Application.EXEName )

Вообще сделай лучше так:

var
IniFName: string;

//FormCreate
begin
IniFName := ExtractFilePath(Application.EXEName) + 'инифайл.ini';
end;

И все, весь путь у тебя в одной переменной. Захочешь, не напутаешь.

[dr.Chas]

mutabor Вот спасиба, воспользовался твоим способом. А по поводу
Ini.Destroy; я же это не из головы взял, так написано в учебнике В.В. Фараонов "Delphi Программирование на языке выского уровня". Ну теперь буду знать.
P.S.: Спс всем кто откликнулся.

[Черничный]

а если *.Destroy не вызывать, что это очень многа место в памяти занимает? Программа завершиться и все само дестроится