[Taemin]

Реализовал процедуру следующим образом:

Код:

procedure TForm1.tmr1Timer(Sender: TObject);
var
  i: Word;
  s,firstznach,secondznach,celayastroka,poi: string;
  zaq,zaw: Integer;
  xsw: Real;
begin
  tmr1.Enabled:=True;
  for i:=0 to mmo1.Lines.Count-1
  do
    if pos('STOPPAGE',mmo1.Lines.Strings[i])>0

    then

    celayastroka:=mmo1.Lines.Strings[i];

    firstznach:=Copy(celayastroka,1,3);
    secondznach:=Copy(celayastroka,4,3);

    zaq:=StrToInt(firstznach);
    zaw:=StrToInt(secondznach);

    xsw:=(zaq*255)+(zaw/2+1);

    poi:=FloatToStr(xsw);

    ShowMessage(poi);

    if xsw > 0 then
          begin
                tmr1.Enabled:=False;
          end;
    end;

Только вот есть одна проблемка, если слова «STOPPAGE» в данный момент в компоненте TMemo – нет, то появляется ошибка:

С периодичностью равной значению Interval компонента [b]TTimer[b]. В будущем планируется, что ключевое слово может появиться в любое время – именно в этом и состоит проблемка… помогите решить.