Why is the For loop (Delphi) not working properly?

Question

Delphi

During the next debugging, all the bumps were pointed to the For loop, which assigns the variable the first value that was not the one that was specified first, and not even from the range.
Variable j should be set to 0 at the beginning, not 4
I'm attaching a screenshot of the debugger+WatchList's code

How to make the loop work correctly?

Answer 1

It's a Delphi optimizer - and watch is wrong.
In the formula, everything will be calculated correctly.