https://blog.dummzeuch.de/2016/10/25/drawing-a-bitmap-on-a-paintbox-in-delphi/