[alexteam]

1. называйте темы НОРМАЛЬНО. заманали свамими "памагите" и прочей херней не обобщающей (либо уж слишком обобщающей) тематику топика. заманало переименовывать или удалять к чертям.

2. ответ:
патамушо - ` а не '
патамушо pck=#$1b_#$04_#$00_#$00_#$00 а не pck=#$1b#$04#$00#$00#$00
и вообще..

if FromServer then
case pck[1] of
#$01:
begin
    case readd(2) of
    2:
        begin
          buf := HStr('14 8A 52 17 40 00 00 00 00'); //за такое я бы убивал тоже.. в зародыше.. но разбираться с структурой пакета мне влом. так что оставим как есть.
          SendToServer;
        end;
    end;
  end;
end;