1、读取注册表
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('SOFTWARE\Borland\Database Engine', False);
try
   s := ReadString('CONFIGFILE01');

   //BDE installed
finally
   CloseKey;
end;

2、可以尝试初始化BDE

  IsBDEExist := (dbiInit(nil) = 0)