procedure DecodeBinhexBuf(var Source: Utf8String; var Buffer; Count: Integer);