https://abundantcode.com/delphi-e2081-assignment-to-for-loop-variable-s/