delphi 如何操作com 接口（有vbscript的示例）

请问delphi是如何操作com接口的？其中vbscript的示例如下：
Set UpdateSession = CreateObject("Microsoft.Update.Session")
Set UpdateServiceManager = CreateObject("Microsoft.Update.ServiceManager")
Set UpdateService = UpdateServiceManager.AddScanPackageService("Offline Sync Service", "c:\wsusscan.cab")
Set UpdateSearcher = UpdateSession.CreateUpdateSearcher()WScript.Echo "Searching for updates..." & vbCRLFUpdateSearcher.ServerSelection = 3 ' ssOthersUpdateSearcher.ServiceID = UpdateService.ServiceIDSet SearchResult = UpdateSearcher.Search("IsInstalled=0")Set Updates = SearchResult.UpdatesIf searchResult.Updates.Count = 0 Then
    WScript.Echo "There are no applicable updates."
    WScript.Quit
End IfWScript.Echo "List of applicable items on the machine when using wssuscan.cab:" & vbCRLFFor I = 0 to searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(I)
    WScript.Echo I + 1 & "> " & update.Title
NextWScript.Quit这段是操作Windows Update Agent （WUA）的vbscript的例子，我想请问一下用delphi如何做呢？
也可以参考：http://www.aspcool.com/lanmu/browse1.asp?ID=6085&bbsuser=csharp
多谢了，比较急，谢谢