[__cadetill]

Ampliando un poco la respuesta de roman (que tiene toda la razon en lo que dice), puedes hacer una cosa asi

 
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