[Страдалецъ]

Да зачем-же так сложно?
У вас фиксированные значения в тексте:
START-PAGE000000000
STOP--PAGE000004000
Значит и исходим из этого:

Код:

if Copy(Memo1.Lines.Strings[i],1,10) = 'START-PAGE'
then begin
       s := Memo1.Lines.Strings[i];
       Form1.ProgressBar1.Min := StrToInt(Copy(s,10,6));
       s := Memo1.Lines.Strings[i+1];
       Form1.ProgressBar1.Max := StrToInt(Copy(s,10,6));
       end;