flash与delphi通信的示例代码