[R-18Rus]

Код:

s1:=Label1.Caption;
delete(s1,1,14);
if FileExists('1.txt') then
  StrLst.LoadFromFile('1.txt')
  else MessageDlg('File not find',mtError,[mbOk],0);
if StrLst[i]='Г'+s1 then
  repeat
  s:=s+StrLst[i+1];
  inc(i);
  s:=s+#13#10;
  until(StrLst[i+1]='Г'+IntToStr(StrToInt(s1)+1));
ShowMessage(s);

Если в Label1 слово+цифра"1", то всё работает. Если цифра больше 1, то не работает. Сам понять никак не могу в чём дело.