关于读取数据库服务器信息

Question

在delphi中如何读取数据库服务器名，数据库名，用户名，口令，表名信息
以下拉列表框的信息展示

Answer 1

//获取SQL服务器列表名
var
  sqlserver, serverlist: variant;
  i, nservers: integer;
begin
  sqlserver:=createoleobject('sqldmo.application');
  serverlist:=sqlserver.listavailablesqlserver;
  nservers:=serverlist.count;
  for i:=0 to nserver-1 do
    listbox1.items.add(serverlist.item(i));
  sqlserver:=null; serverlist:=null;
end;//数据库的表
var bl: TStringList;
begin
   bl:=TStringList.Create;
   ADOConnection1.GetTableNames(bl);
   Memo1.Text:=bl.GetText;
end;

Answer 2

to   yzykjh(爱吃子姜的人) 
createoleobject()不存在

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, Dialogs, StdCtrls, Buttons, ComObj; //必须加上ComObj

Answer 4

to   yzykjh(爱吃子姜的人)
 
     能不能说明的详细一点！谢谢！