И снова работа с файлами

[Raivolo]

Сталкнулся с такой проблемой моя программа должна сохранять много значений label.caption мне посоветовали использовать следующий код
// СОХРАНЯЕМ
procedure TForm1.Button1Click(Sender: TObject);
var
str:tstringlist;
begin
str := tstringlist.Create;
str.Add(label1.caption);
str.Add(label2.caption);
str.Add(label3.caption);
str.SaveToFile('str');
str.Free;

end;

// ЗАГРУЖАЕМ
procedure TForm1.Button2Click(Sender: TObject);
var
str:tstringlist;
begin
str:=tstringlist.create;
try
str.LoadFromFile('str');
label1.Caption:=str.Strings[0];
label2.Caption:=str.Strings[1];
label3.Caption:=str.Strings[2];
finally
str.Free;
end;
end;

Код работает. Спасибо.Но.. Программа сохроняет еще много значений label.visible. Посоветовали код
uses inifiles;

procedure TForm1.read;
var
ini: tinifile;
begin
ini:=tinifile.create(extractfilepat h(application.exename)+'Confing.ini ');
button1.visible:=ini.readbool('Opti ons', 'Visible', false);
ini.free;
end;

procedure TForm1.write;
var
ini: tinifile;
begin
ini:=tinifile.create(extractfilepat h(application.exename)+'Confing.ini ');
ini.writebool('Options', 'Visible', button1.visible);
ini.free;

Тоже работает. Но они оба создают фаил Project1.cfg и настройки перезаписывают друг друга. Созраняются или значение caption или visible.

Что посоветуете сделать? Может сделать чтобы один из кодов сохранял настройки не в Project1.cfg а в другом файле? Но у меня неполучается правильно написать код.

[SERG1980]

Какой Project1.cfg у вас лэйбэлы сохраняются в файл str хотя я не знаю это его название или путь кнему

str.SaveToFile('str');

а ини сохраняется в файл Confing.ini

[Raivolo]

Посидел покавырялся и понял в чем проблема.
Проблема в коде сохранения visible. У меня 14 значений visible и они все разные. Сохраняются они когда все значения одинаковые.
Как подправить код чтобы сохранялись 14 значений?