Delphi,在for循环中随时更改循环次数

Delphi在默认情况下for循环的次数是确定的、不能更改的，有时我们又有在循环中更改循环次数的需求，让我们对代码可以更灵活地控制，实现代码如下：

uses
  System.Math;

var
  I: Integer;
begin
  for I := 0 to 9 do
  begin
    ShowMessage(IntToStr(I));  //只显示0，8，9
    PInteger(@I)^ := Max(I, 7);
  end;
end;