[YVitaliy]

Может сделать типа так:

Код:

s1:=Label1.Caption;
delete(s1,1,14);
if FileExists('1.txt') then
  StrLst.LoadFromFile('1.txt')
  else MessageDlg('File not find',mtError,[mbOk],0);
i:=0;
while i<StrLst.count do begin// вот здесь
  if StrLst[i]='Г'+s1 then begin
  s:='';
    repeat
    s:=s+StrLst[i+1];
    inc(i);
    s:=s+#13#10;
    until (StrLst[i+1]='Г'+IntToStr(StrToInt(s1)+1)) or (i=StrLst.count);
  ShowMessage(s);
  end else inc(i);
end;