시스템에 설치되어 있는 ODBC 데이타 소스를 모조리 가져오는 함수 입니다.

uses
  Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.LazyWrite := false;

     if Reg.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources', false) = TRUE then
     begin
        Reg.GetValueNames( ListBox1.Items );
        Reg.CloseKey;
     end;

  finally
     Reg.Free;
  end;
end;