如何取得SQL数据库的全部实例名（delphi版本）

第一步，在实例master库中建立存储过程如下：
CREATE PROCEDURE query_database AS
Select name from sysdatabases
GO

第二步，打开delphi，在窗体上放置控件, TADOconnection, TADOstoredproc, TcomboBox,

第三步，设置Connection的连接字符串为：Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=VSYS-TESTW;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=VSYS-TESTW;Use Encryption for Data=False;Tag with column collation when possible=False

第四步，设置storedproc的connection为第三步的那个控件，storedproc属性为第一步建立的存储过程的过程名。

第五步，添加代码如下：
  procedure TForm1.FormCreate(Sender: TObject);
var
   ss:string;
begin
  ADOStoredProc1.Open;
  while not ADOStoredProc1.Eof do
  begin
    ss:=ADOStoredProc1.Fields[0].AsString;
    ComboBox1.Items.Add(ss);
    ADOStoredProc1.Next;
  end;
end;

Ok， 运行程序，点击下拉组合框，就可以看到效果啦。