Source position: lberh.inc line 252
function ber_get_stringa(
ber: PBerElement;
var buf: pcchar
):ber_tag_t;