Pelco_D协议在Delphi中的实现