Работа с ComboBox+Ini+ItemIndex

[GamerOld]

Здравствуйте, уважаемые программисты!

Помогите, пожалуйста, новичку в мире программирования, реализовать задуманное...

На форме расположил 2 комбобокса, каждый в своём раскрывающемся списке содержит по 2 строки.

Название строк я внёс в инспектор объектов в Items (cbb1 - "Text1" и "Text2", для cbb2 - "Text3" и "Text4").

В папке с программой создал 2 ini-файла это: "settings1.ini" и "settings2.ini".

Задача:

1. Заполнить эти ini-файлы.
Например, чтобы при выборе в cbb1 строки "Text2" в "settings1.ini" было следующее:

[Settings]
Renderer=4

При выборе в cbb1 строки "Text1", было так:

[Settings]
Renderer=3

Для "settings2.ini", чтобы при выборе в cbb2 строки "Text3", было так:

[EmuCore/Speedhacks]
vuThread=enabled

При выборе "Text4", так:

vuThread=disabled

т. е. нужно, чтобы все эти строки менялись в ini-файлах, в зависимости от выбранной строки/позиции в ComboBox.

2. Выбранная позиция комбобокса, чтобы сохранилась после перезапуска программы.

Заранее благодарю за содействие.

На данный момент располагаю вот таким небрежно написанным кодом (черновик) по этим вопросам:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles, StrUtils;

type
  TForm2 = class(TForm)
    cbb1: TComboBox;
    lbl1: TLabel;
    cbb2: TComboBox;
    lbl2: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OnShow(Sender: TObject);
    procedure cbb1Change(Sender: TObject);
    procedure cbb2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Ini:TIniFile;
  cbRenderer: TComboBox;
  cbVuThread: TComboBox;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings1.ini') do
  try WriteInteger('Settings', 'Renderer', cbRenderer.ItemIndex + 4);
  finally Free;
  end;
  with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings2.ini') do
  try WriteString('EmuCore/Speedhacks', 'vuThread', ifthen(cbVuThread.ItemIndex=0, 'enabled', 'disabled'));
  finally Free;
  end;
end;

procedure TForm2.OnShow(Sender: TObject);
begin
  with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings1.ini') do
  try cbRenderer.ItemIndex := ReadInteger('Settings', 'Renderer', cbRenderer.ItemIndex + 4);
  finally Free;
  end;
  with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings2.ini') do
  try cbVuThread.ItemIndex := ord(ReadString('EmuCore/Speedhacks', 'vuThread', 'enabled') = 'enabled');
  finally Free;
  end;
end;

procedure TForm2.cbb1Change(Sender: TObject);
begin
cbb1.itemindex;
cbb1.items[0];
cbb1.items[1];
end;

procedure TForm2.cbb2Change(Sender: TObject);
begin
cbb2.itemindex;
cbb2.items[0];
cbb2.items[1];
end;

end.

[zdus2757]

что это такое :/

1) зачем в разных файлах хранить по одной настройке?
2) что с кодом?.. и он вообще работает?)
3) cbb1-2 зачем так сокращать..
4) а что делают cbb change? эт нужно?
5) ниже нубопример который хоть будет работать, забирай
6..7..8(и еще +100500 вопросов)

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles, StrUtils;

type
  TForm2 = class(TForm)
    cbb1: TComboBox;
    lbl1: TLabel;
    cbb2: TComboBox;
    lbl2: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OnShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var Ini:TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(paramstr(0))  + 'Settings.ini');
Ini.WriteInteger('Settings','Renderer',cbb1.itemindex + 3);

if cbb2.ItemIndex = 0 then
   Ini.WriteString('Settings','VuThread','enabled')
   Else
   Ini.WriteString('Settings','VuThread','disabled');

Ini.Free;
end;

procedure TForm2.OnShow(Sender: TObject);
var Ini:TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(paramstr(0))  + 'Settings.ini');
cbb1.ItemIndex:=Ini.ReadInteger('Settings','Renderer',3) - 3;

if Ini.ReadString('Settings','VuThread','enabled') = 'enabled' then
   cbb2.ItemIndex:=0
   Else
   cbb2.ItemIndex:=1;

Ini.Free;
end;

end.