Hallo Wadim,
nachdem ich noch einemal nachgelesen habe, meine ich
Code:
with TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do
[color=red][b]TRY[/b][/color] [color=darkblue]// IST BESSER [/color]
a := readinteger('index','count',0); //definiere ich schon beim speichern damit er weiß ...
label1.Caption := inttostr (a);
b := 1;
while b <= a do begin
...
Du solltest unbedingt wegen dem Create einen Ressourcenschutzblock (mit "Try/Except/End" wie Du es beim 2. With ja richtig machstest) statt einem Begin/End verwenden.