谁能把这段VB代码改成Delphi的(在线等待)！！！！！！！！(10分)

Dim mSqlServer As New SQLDMO.SQLServer
Dim Fs As New Scripting.FileSystemObject
Dim Ts As Scripting.TextStream

mSqlServer.Connect ServerName, UID, PWD
SqlStr = App.Path & "/demoData/mydbdemo.sql"
Set Ts = Fs.OpenTextFile(SqlStr, ForReading, False, TristateTrue)
Sql_Str = Ts.ReadAll
Set Ts = Nothing
Set Fs = Nothing
mSqlServer.Databases(DBName).ExecuteImmediate Sql_Str
改后面的五行代码。

adoquery1.sql.clear;
adoquery1.sql.loadfromfile(extractfilepath(Application.exename) +'demoData/mydbdemo.sql')
adoquery1.execsql;

楼上的兄弟，这段代码是Delphi用Sql-dmo操作Sql-server的，我不需要Ado的。

关键的是要在 project 中 import sql dmo.
选菜单 project -> import typelib->microsoft sqldmo object lib就行了，
注意其中的类名与vcl冲突，要改 classname.

我要求改代码，楼上的兄弟说的事我已解决。

多人接受答案了。