Delphi 自动端口映射

找了好半天了都不知道怎么实现，最后把重点落在了怎么去控制UPNP。
但是delphi死活都不会，找到的代码大多是VC++的，几乎是看不懂。
现在主要的问题就是：怎么用Delphi控制UPNP自动映射端口，或者有什么控件没？
谢谢！