https://devdelphi.ru/blog/kak-preobrazovat-bitovye-operatory-iz-java-v-delphi