[Diverclaim]

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.