Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как найти все Alias, укакзывающие на MS SQL Server?

01.01.2007
GetAliases(ComboBox1.Items)
 
procedure
GetAliases(const AList: TStrings);
var
  i
: Integer;
 
Desc: DBDesc;
 
Buff: array[0..254] of char;
begin
 
// list all BDE aliases
 
Session.GetAliasNames(AList);
 
for i := AList.Count - 1 downto 0 do
 
begin
   
StrPCopy(Buff, AList[i]);
   
Check(DbiGetDatabaseDesc(Buff, @Desc));
   
// no Paradox, please
   
if StrPas(Desc.szDBType) = 'STANDARD' then
     
AList.Delete(i)
 
end
end;

Взято с Delphi Knowledge Base: https://www.baltsoft.com/