用delphi开发端口转发端口映射的例子