[Ildar-tsr]

1. Если б повнимательнее был такого вопроса не возникло бы:

Код:

procedure SetMinMax(s:string);
var tmp,substr,firstb:string;
var secm:integer;
var firstas:Integer;
begin
  substr:='STOP--PAGE';

  if(not maxFound) then
    begin
  if(Pos(substr, s) > 0) then
  begin
firstb := Copy(s, Pos(substr, s) + 10, 3);
firstas := StrToInt(firstb); //сравни

secm := firstas*255;
showmessage(IntToStr(secm));