uses BDE;

.....

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

 dbiGetDatabaseDesc(PChar(DBName), @dbDes);

 with dbDes do

  ShowMessage(Format(DescStr, [szDbType, szName, szText, szPhyName]));

end;