[NLObP]

PadshiyAngel, кусок

3:begin
  buf:=hstr('65 76 A0 04 10 00 00 00 00');
  SendToServer;
    Inc(TimerCycle);
    Exit;          
   end;

наверное лучше так исправить

3:begin
  buf:=hstr('65 76 A0 04 10 00 00 00 00');
  SendToServer;
    TimerCycle=1;
    Exit;          
   end;