关于控制IIS的问题(100分)

我现在有一段vb的代码，是用于建立IIS建点的，在其中的一个步骤上遇到问题了，也就是无法将vb的代码翻成delphi的代码，望大家都给予帮助．
vb代码如下：
----------------------------------------------------
For Each WebServer in w3svc
If WebServer.Class = "IIsWebServer" Then
Bindings = WebServer.ServerBindings
If BindingString = Bindings(0) Then
response.write "IP地址冲突:" & IPAddr & ",请检测IP地址！."
Exit Function
End If
End If
Next
----------------------------------------------------

我现在无法将For Each...in 翻译成Delphi的代码，请问怎么解决？