[Harima Hario]

Помогите разрешить ситуацию.

Коротко о том, что делает процедура:
В компоненте TMemo при появлении ключевого слова STOPPAGE копируется три позиции (цифры) после самого слова. В нашем случае: STOPPAGE000016000 в результате следующей выборки мы должны получить значение «000», после умножить это значение на 255 и вывести на экран результат.

Код:

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

  if(not maxFound) then
    begin
  if(Pos(substr, s) > 0) then
  begin
firstb := Copy(s, Pos(substr, s) + 8, 3);
firstas := StrToInt(firstb); 

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

    end;
  end;
end;

Все с виду просто, но у меня в большей половине случаев происходит сбой… для наглядности сам сбой и нормальную рабочую ситуацию я отобразил в видео:
http://www.youtube.com/watch?v=i0xsQsopFCQ

Дело не в железе 100% если закоментить несколько строк в процедуре - все работает нормально...