Ampliando un poco la respuesta de roman (que tiene toda la razon en lo que dice), puedes hacer una cosa asi
Código:
procedure TfDataModulo.fDataModuloCreate(Sender: TObject);
function IsBDEExist : boolean;
begin
Result := (dbiInit(nil) = 0);
end;
begin
if IsBDEExist then
// Existe
else
// No existe
end;
Espero que ahora te quede algo mas claro