Помогите написать скрипт

[PanAm]

Сорь, недоглядел ))
конечно надо заменить
buf:=hstr('7C B1 19 00 00');
SendToServer;
на
buf:=hstr('7C B1 19 00 00');
SendToClient;

Добавлено через 4 минуты

if FromServer and (pck[1]=#$62) then begin
    D := ReadD(2);
    if (D=1517) and f then begin
      Counter := 10;
      Timer.enabled :=true;  //опять запускаем
    end;
  end;

можно конечно проверить пакет и на последний 0

if FromServer and (pck[1]=#$62) then begin
    D := ReadD(2);
    if (D=1517) and f then begin
      D := ReadD(6);
      if (D=0)  then begin
         Counter := 10;
         Timer.enabled :=true;  //опять запускаем
      end;
    end;
  end;

Добавлено через 4 минуты
испарвил скрипт в 4 посте

Добавлено через 10 минут

Сообщение от Pusha

мда я конечно нешарю во всём этом но (хз у меня 5 по паскалю) но за что отвечает
(pck[1]=#$49)

это отлавливает напмсаное в чат START и включает посылку пакетов