脚踏开关spcomm源代码, delphi