begin if FromServer and (pck[1]=#$39) then //От серва begin //Если первая "пара циферок" - 39, то: buf:=#$42; SendToServer; //Посылаем "42" Серверу end; end.