delphi异步socket（ClientSocket，ServerSocket）实例，在XE2和XE7上测试通过，其它没有测试。