1:
2:
3:
4:

[races]
                                                                race0=Human
                                                                race1=Elf
                                                                ...					

1:

Memo1.Lines:=ini.ReadSectionValues('races');					

1:

Memo1.Lines:=ini.ReadSections('races');					

1:
2:
3:
4:
5:

[races]
count=Integer //Anzahl der Einträge in Races
race0=
race1=
race2= ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Procedure RacesindieComboBoxschreiben;
Var i, n: Integer; ini: TIniFile;
Begin
 ini:=TIniFile.Create(Filename);
 n:=StrToInt(ini.ReadString('Races','Count','0'));
 For i:=0 to n-1 do
 Begin
   ComboBox1.Items.Add(ini.Readstring('Races','Race'+IntToStr(i),' '));
 end;
end;