[fpc-devel] Issue with TBits.OpenBit

[Sergei Gorelkin]

SGVsbG8sCgpUaGUgY3VycmVudCBUQml0cy5PcGVuQml0IGZ1bmN0aW9uIGRpZmZlcnMgZnJvbSBE
ZWxwaGkuIEluIERlbHBoaSwgaXQgaXMgCmEgcmVhZC1vbmx5IG9wZXJhdGlvbjogaWYgYWxsIGFs
bG9jYXRlZCBiaXRzIGFyZSBzZXQsIGl0IHJldHVybnMgdmFsdWUgCmVxdWFsIHRvIFNpemUuIElu
IEZQQywgaXQgZXhwYW5kcyB0aGUgc3RvcmFnZSBhbmQgbW9kaWZpZXMgdGhlIFNpemUgCnByb3Bl
cnR5LCBzbyB0aGUgcmVzdWx0IG5ldmVyIGV4Y2VlZHMgKFNpemUtMSkuIFRoaXMgZGlmZmVyZW5j
ZSBjYXVzZXMgCnRoZSBmb2xsb3dpbmcgY29kZSB0byBmYWlsOgoKdmFyCiAgIGluZGV4OiBpbnRl
Z2VyOwpiZWdpbgogICBpbmRleCA6PSBCaXRzLk9wZW5CaXQ7CiAgIGlmIGluZGV4ID0gQml0cy5T
aXplIHRoZW4KICAgICBBbGxvY2F0ZVNvbWVSZXNvdXJjZUVsc2V3aGVyZSgpOyAgLy8gSW4gRlBD
LCB0aGlzIGlzIG5ldmVyIGV4ZWN1dGVkCiAgIEJpdHNbaW5kZXhdIDo9IFRydWU7ICAgICAgICAg
ICAgICAgIC8vIEJpdHMgZ2V0IGV4cGFuZGVkIGhlcmUKZW5kOwoKSSB0cmllZCB0byBmaXggdGhh
dCBteXNlbGYsIGJ1dCBUQml0cyBjb2RlIGxvb2tlZCBuZXh0IHRvIGNoYW9zIGZvciBtZS4gCkZv
ciBleGFtcGxlLCB0aGUgQ2xlYXIgbWV0aG9kIGNoZWNrcyBiaXQgaW5kZXggYW5kIHNldHMgRkJT
aXplIHRvIAooYml0KzEpLCBidXQgU2V0T24gKHdoaWNoIGlzIHN1cHBvc2VkIHRvIGJlIGp1c3Qg
Y29tcGxlbWVudGFyeSkgZG9lcyBub3QgCmNoZWNrIHRoZSBpbmRleCBhbmQgc2V0cyBGQlNpemUg
dG8gKGJpdCkgd2l0aG91ZCBhZGRpbmcgMTsgc2V0dGluZyAKRkJTaXplIGFuZCBGU2l6ZSBpcyBz
Y2F0dGVyZWQgb3ZlciBzZXZlcmFsIG1ldGhvZHMuClNvIEkgZGVjaWRlZCB0byBpbXByb3ZlIHRo
YXQsIHRvby4gU2V0T24gYW5kIENsZWFyIGZ1bmN0aW9uYWxpdHkgbWVyZ2VkIAppbnRvIFNldEJp
dCwgYW5kIEZCU2l6ZSBhbmQgRlNpemUgYXJlIGNoYW5nZWQgb25seSBpbiBTZXRTaXplLgoKVGhl
IHJlc3VsdGluZyBwYXRjaCBpcyBhdHRhY2hlZC4KClNvbWUgcXVlc3Rpb25zIHN0aWxsIHJlbWFp
biwgaG93ZXZlcjoKCjEpIFR5cGluZzogVEJpdEFycmF5IChjbGFzc2VzaC5pbmMgbGluZSAzMDgp
IGlzIGRlY2xhcmVkIGFzIGFycmF5IG9mIApDYXJkaW5hbC4gSXQgbWVhbnMgdGhhdCBvbiA2NC1i
aXQgcGxhdGZvcm1zIGl0IHdpbGwgY29uc2lzdCBvZiBRV29yZCdzLiAKU2luY2UgbnVtYmVyIG9m
IGJpdHMgaW4gZWFjaCBlbGVtZW50IGlzIGhhcmRjb2RlZCB0byAzMiwgaXQgbG9va3MgbGlrZSAK
aGFsZiBvZiB0aGUgc3RvcmFnZSB3aWxsIGJlIHdhc3RlZCAoYWx0aG91Z2ggVEJpdHMgd2lsbCBv
cGVyYXRlIApjb3JyZWN0bHkpLiBIb3cgc2hvdWxkIGl0IGJlIGZpeGVkOiBieSBjaGFuZ2luZyBD
YXJkaW5hbCB0byBMb25nV29yZCwgb3IgCmJ5IHVzaW5nIHBsYXRmb3JtLWRlcGVuZGVudCB2YWx1
ZXMgZm9yIEJJVFNISUZUIGFuZCBNQVNLPwoKMikgUmFpc2luZyAnT3V0IG9mIG1lbW9yeScgZXJy
b3IgaW4gVEJpdHMuU2V0U2l6ZSBpcyBwcm9iYWJseSByZWR1bmRhbnQgCmJlY2F1c2UgUmVhbGxv
Y01lbSB3aWxsIGRvIGl0IGl0c2VsZj8KCjMpIElzIHRoZSBUQml0cy5TaXplIGxpbWl0IG9mIDY1
NTM2IG5lY2Vzc2FyeT8gSSBndWVzcyB0aGF0IGl0IGNvbWVzIApmcm9tIERlbHBoaSwgd2hlcmUg
aXQgaXMgY2F1c2VkIGJ5IGFzc2VtYmxlciBpbnN0cnVjdGlvbnMgYmVpbmcgdXNlZCAKKEJUL0JU
UyBhbmQgYWxpa2UpLiBCdXQgRlBDIGltcGxlbWVudGF0aW9uIGhhcyBubyBzdWNoIGxpbWl0YXRp
b24sIHNvIAp0aGUgbGltaXQgbG9va3MgdmVyeSBhcnRpZmljaWFsLi4uCgpCZXN0IHJlZ2FyZHMs
ClNlcmdlaQotLS0tLS0tLS0tLS0tLSBuZXh0IHBhcnQgLS0tLS0tLS0tLS0tLS0KQSBub24tdGV4
dCBhdHRhY2htZW50IHdhcyBzY3J1YmJlZC4uLgpOYW1lOiB0Yml0c19wYXRjaC56aXAKVHlwZTog
YXBwbGljYXRpb24veC16aXAtY29tcHJlc3NlZApTaXplOiAyMjE4IGJ5dGVzCkRlc2M6IG5vdCBh
dmFpbGFibGUKVXJsIDogaHR0cDovL2xpc3RzLmZyZWVwYXNjYWwub3JnL2xpc3RzL2ZwYy1kZXZl
bC9hdHRhY2htZW50cy8yMDA4MDUyMy9hNmEwODUyZi90Yml0c19wYXRjaC5iaW4K