procedure TForm5.Button1Click(Sender: TObject);
var i : Longint;
begin
  //downto used to take highest I at first iteration
  //same situation with " for I := 0 to MyList.Count - 1 do "
  for I := MyList.Count - 1 downto 0 do
  begin //normally this body should be never called!
    Memo1.Lines.Add('i = ' + IntToStr(i));
    Break;
  end;
end;

00D12E22 85C0             test eax,eax            //compare with zero
00D12E24 0F8C9A000000     jl $00d12ec4    //jump if less (skip cycle)

0000000100D16CCC 4839CF           cmp rdi, rcx                       //set flags as if calculated RDI - RCS
0000000100D16CCF 488945C8         mov qword ptr [rbp - 0x38], rax
0000000100D16CD3 48894DC0         mov qword ptr [rbp - 0x40], rcx
0000000100D16CD7 0F8FFE000000     jg 0x100d16ddb;           //jump if greater