begin if FromClient and (ReadC(1) = $32) then begin buf := HStr('57 5E F3 00 00 00 01 00 01 00'); WriteD(ReadD(4)); buf := buf + HStr('01 00 00 00 00 00 00 00'); SendToServer; end; end.