Demo that shows that a Delphi for loop may run in reverse order

ForLoopExecutionOrder.dpr

program ForLoopExecutionOrder;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

begin
  try
    var j := 0;
    var i : Integer;

    {$OPTIMIZATION OFF}     // We are not even in optimization mode!
    for i := 0 to 10 do     // Set a break point here, open CPU view and notice:
    begin                   // mov eax,$0000000b  -> start with 11
       inc(j);              // dec eax            -> decrement by one
    end;                    // ==> Loop runs in reverse order as compiler detected that the actual order is unimportant

    Assert(j = 11);  //Simple sanity check
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.