用Delphi怎样像用VB脚本一样建立SQL-SERVER的SQLDMO.SQLServer对象来附加数据库？

用VB脚本的例子我有(附加SQL-SERVER数据库)：
DBName = "RSS"
FileName1 = "c:\dailyrss\data\rssdat.mdf"
Filename2 = "c:\dailyrss\data\rsslog.ldf"
Call AttachDatabase("RSS", FileName1, FileName2)Public Function AttachDatabase(DBName, FileName1, Filename2)
'This function attaches a database file to an SQL Server or MSDE server.
    Dim ErrorString
    Dim oSvroot
    Dim lsExecute
 
    Set oSvroot = CreateObject("SQLDMO.SQLServer")
'     On Error GoTo AttachError
    
    'Set the time out fairly high.
    'Note this value is in seconds.
    oSvroot.LoginTimeout = 60    'Connect.
    oSvroot.Connect "(local)", "sa", ""
    
    'Attach.
    Call oSvroot.AttachDB(DBName, FileName1 & ", " & Filename2)
    AttachDatabase = True
Exit Function
AttachError:
        ErrorString = "Database failed to attach.  " + Chr(13) + "SQL-DMO error:  " _
            + Str(Err.Number) + " " + Err.Description
        MsgBox ErrorString
        AttachDatabase = False
End Function用Delphi如何做同样的工作？请指教！