var  
MyAliasPath: string;  
const  
AliasName = ′MyAlias′;  
  
{**** Получаем из BDE путь MyAlias}  
  
ParamsList := TStringList.Create;  
  
try  
with Session do  
begin  
Session.GetAliasNames(ParamsList);  
Session.GetAliasParams(AliasName, ParamsList);  
MyAliasPath := Copy(ParamsList[0], 6, 50) + ′′;  
end;  
finally  
ParamsList.Free;  
end;