Как правильно взять секцию

[HellMercenariess]

Есть файлы такого формата:

[FIXED_PRODUCE]
Krestian_Turki(TA) 3
Center_Turki(TA) 2 2 H
Sclad4(TA)       2 0 S
Rinok_Turki(TA)	 0 1 M

Center_Turki(TA) 3
Krestian_Turki(TA) 0 0 P
Pehota_turki(TA)   5 0 P
Tatarin(TA)	   6 0 M

Sclad4(TA) 1
GRUZ(TA)  0 0 O

[UPGRADE]
//akademia
AKA08TA A8 #POSITION 2 0 #LEVEL 1 AKA08AU #COST 1 WOOD 5500  #TIME 500
	EFFECT_WOOD 400

[UPGRADEPLACE]
Sclad4(TA) 1 AKA08TA

[UPGRADEENABLE]
AKA08TA

[ACCESSCONTROL]
GRUZ(TA) 2 Sclad4(TA) Rinok_Turki(TA)
Rinok_Turki(TA) 1 Sclad4(TA)    
Sclad4(TA)       1 Center_Turki(TA)

Попробовал считывать секции процедурой Ini.ReadSection
читает 0, но если добавить в секцию таких строк:

sitem3=D:\Music\01 - Burning With Life.mp3
sitem4=D:\Music\01 - Medieval.mp3
sitem5=D:\Music\01 Chi mai (prima).mp3
sitem58=D:\Mp3\11. Armageddon.mp3

то их читает.
А как вы считываете секции с нестандартными ключами?

[Аватар]

Парсить на предмет квадратных скобок в начале и конце строки

[evg_m]

r:=TStringList.Create;
r.LoadFromFile(...);
produ:=r.indexof('[FIXED_PRODUCE]');

[Smitt&Wesson]

Где, такой откопали? Если-бы стоял знак "=", можно бы было воспользоваться TIniFile.
В данном случае, только то, что сказал Avatar. Не забудьте про пробелы (головнвя боль вех прогрмаммистов) в цикле while.

[HellMercenariess]

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

r:=TStringList.Create;
r.LoadFromFile(...);
produ:=r.indexof('[FIXED_PRODUCE]');

На первое время вполне может сгодится, но на следующем этапе нужно парсить и я даже не представляю с какой стороны начинать...

Формат примерно такой:

 AKA30PL A30 #POSITION 9 2 #LEVEL 1 AKA30AU #COST 3 GOLD 1150 WOOD 2300 STONE 58700 #TIME 500
	BUILD GRP 10 KUTTER(PL) KECH(PL) FregatNEW(PL) Victoria(PL) Lodka(PL) Yahta(PL) PERES_KOR(PL) Fregat(PL) Linkor(PL) GALERA(PL) -90%	
AKA31PL A31 #POSITION 10 0 #LEVEL 1 AKA31AU #COST 2 GOLD 350 IRON 2000 #TIME 500
	ATTPAUSE WEAPONKIND VISTREL GRP 10 Dragun19(PL) Gr_au(PL) Gv_Saper(PL) Evegr(PL) Gv_au(PL) Mushketer_polsha(PL) Mushketer(PL) Grenader(PL) Dragun(PL) Dragun_18(PL) -35%
AKA32PL A32 #POSITION 10 4 #LEVEL 1 AKA32AU #COST 2 GOLD 1550 COAL 3700 #TIME 500
	COST GRP 4 Gr_au(PL) Gv_Saper(PL) Gv_au(PL) Mushketer(PL) GRP 2 IRON -50% GOLD -50% 
AKA33PL A33 #POSITION 10 2 #LEVEL 1 AKA33AU #COST 2 GOLD 5501 COAL 21200 #TIME 500
	ATTPAUSE WEAPONKIND VISTREL GRP 10 Dragun19(PL) Gr_au(PL) Gv_Saper(PL) Evegr(PL) Gv_au(PL) Mushketer_polsha(PL) Mushketer(PL) Grenader(PL) Dragun(PL) Dragun_18(PL) -35%

подробно первая запись:

AKA30PL A30 
  #POSITION 9 2 
  #LEVEL 1 AKA30AU 
#COST 3 GOLD 1150 WOOD 2300 STONE 58700 
#TIME 500
	BUILD GRP 10
 KUTTER(PL) 
KECH(PL) 
FregatNEW(PL)
 Victoria(PL) 
Lodka(PL) 
Yahta(PL) 
PERES_KOR(PL)
 Fregat(PL)
 Linkor(PL) 
GALERA(PL) -90%

Число 10 обозначает к скольким типам объектов надо применить сие действие, если количество правильных записей <> числа то произойдет катастрофа

когда я еще не знал что тута все циферки и буковки так крепко связаны, пробовал дописывать объекты ручками а цыфру не исправлял тогда катастрофы происходили постоянно, вот я теперь решил по-хитрому делать: все объекты добавлять только через список как TMemo или TlistBox, список знает сколько в нем строк и число BUILD GRP 10всегда будет точно соответствовать числу строк.
Только беда в том что все записи неодинаковы:

AKA32PL A32 #POSITION 10 4 #LEVEL 1 AKA32AU #COST 2 GOLD 1550 COAL 3700 #TIME 500
	COST GRP 4 Gr_au(PL) Gv_Saper(PL) Gv_au(PL) Mushketer(PL) GRP 2 IRON -50% GOLD -50%

AKA05PL A5 #POSITION 1 1 #LEVEL 1 AKA05AU #COST 2 GOLD 2520 WOOD 12400 #TIME 500
	FISHING Lodka(PL) +100%