unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
ListBox1: TListBox;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses comobj;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
sqlserver:variant;
serverlist:variant;
i:integer;
begin
sqlserver:=createoleobject('SQLdmo.APPlication');
serverlist:=sqlserver.listavilablesqlservers;
if serverlist.count<1 then
begin
listbox1.Items.Clear;
end
else
begin
for I := 1 to serverList.Count do
begin
listbox1.Items.Add(serverlist.item(i));
listbox1.ItemIndex:=0;
end;
end;
sqlserver:=null;
serverlist:=null;
end;
end.

以上是我寫的一段程式，目的是要列出網域中所以的SQLSERVER，程式在DELPHI 7 中編譯跟執行都沒問題；
但是用DELPHI 2010 編譯後執行出現了以下的錯誤訊息。

project prog01.exe raised exception class EOleSysError with message '無效的類別字串',ProgID:"SQLdmo.APPlication" .

請問為何?如何修正？

抱歉之前忘了提，我的作業系統是windows 7 .

編輯記錄