Source position: lberh.inc line 256
function ber_get_bitstringa(
ber: PBerElement;
var buf: pcchar;
var len: ber_len_t
):ber_tag_t;