For-do Schleife mit Sprung

[Luckie]

Abrakadabra, dreimal schwarzer Kater. Schwupps:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 9 do
  begin
    Inc(Integer(Pointer(@i)^));
    ShowMessage(IntToStr(i));
  end;
end;