ТРМ138Р "подвисает"

[balepa]

По прошествии некоторого времени опрос ТРМ-138 замедляется, т. е. если в самом начале (при старте Execute) опрос происходит 34-35 раз в сек, то минут через 5-10 1 раз в 2-3 сукунды и новые значения не считываются в данный момент tm = 32086 и неизменяется. Помогает только отключение от питания ТРМ. Ошибка - "Устройство неотвечает". Как это победить ?
Адаптер АС3
owen_io.dll от 13 декабря 2006 г., 13:19:54

Ниже привожу код опроса:

procedure TSborCom1.Execute;
var
  value: Single;
  difference,beg: Cardinal;
  mwSum: Double;
begin
  Com1Open:= false;
  count:= 0;
  mwSum:= 0;
  difference:= 1001;
  if (OpenPort(COM_1,spd_115200,prty_NONE,databits_8,stopbit_1,RS485CONV_MANUAL) <> (-1)) then begin
    Com1Open:= true;
    while Com1Open do begin
      if difference>1000 then beg:= GetTickCount;
      if ReadIEEE32(0,0,'rEAd',value,tm1,0)>=0 then begin
        mwUnit1:= value;
      end;
      if ReadIEEE32(1,0,'rEAd',value,tm2,1) >=0 then begin
        mwUnit2:= value;
      end;
      mwSumm:= mwUnit1 + mwUnit2;
      mwSum:= mwSum + mwSumm;
      difference:= GetTickCount-beg;
      inc(count);
      //if difference<=1000 then inc(count)
      //else begin
        Form1.AverageDL.Caption:= FloatToStrF(mwSum / count,ffFixed,6,2);
      //  mwSum:= 0;
      //  count:= 0;
      //end;
      //Form1.StatusBar1.SimpleText:= IntToStr(count);
      Synchronize(ShowMW);
    end;
  end;
  Terminate;
end;