begin if (pck=Hstr('пакет')) then begin pck[8]:=#$тут менять; pck[9]:=#$Тут тоже менять; buf:=pck; SendToServer; end; end.