Delphi - saber el alias de una DB por su nombre

mi problema es el siguiente:
Tengo que conseguir el path de una database definida en el BDE, para ello utilizo el siguiente procedimiento:

procedure ShowDatabaseDesc(DBName: string);

const
DescStr = 'Driver Name: %s'#13#10'AliasName: %s'#13#10 +
'Text: %s'#13#10'Physical Name/Path: %s';
var
dbDes: DBDesc;
begin
Check(DbiGetDatabaseDesc(PChar(DBName), @dbDes));
with dbDes do
ShowMessage(Format(DescStr, [szDbType, szName, szText, szPhyName]));
end;

Pero lo único que obtengo es basura. No sé que puedo estar haciendo mal.
chula