https://devdelphi.ru/blog/kak-sdelat-sobytie-v-potoke-na-delphi