https://abundantcode.com/delphi-e2030-duplicate-case-label/