delphi Код:
begin
if fromclient and (pck=Hstr('01 00 42 02 00 33 28 FF FF 39 F5 FF FF 06 42 02 00 23 28 FF FF 51 F5 FF FF 01 00 00 00')) then
begin
buf:=HStr('01 7C 42 02 00 38 27 FF FF 39 F5 FF FF 2D 42 02 00 45 26 FF FF 41 F5 FF FF 01 00 00 00');
SendToServer;
end;
end.