goto-befehl in delphi?

[Zacherl]

Es geht auch mit verschachtelten Schleifen, sogar ohne ein extra Flag zu setzen:

Delphi-Quellcode:

var 
  i, i2, i3: integer;
begin
  for i := 0 to 10 do
  begin
    for i2 := 0 to 20 do
    begin
      for i3 := 0 to 30 do
      begin
        if i3 = 15 then
          break;
      end;
      if (i3 = 15) and (i2 = 10) then
        break;
    end;
    if (i3 = 15) and (i2 = 10) and (i = 5) then
      break;
  end;
end;

Wieso denn nicht einfach die Zählervariable verwenden, die sowieso in(de)crementiert wird?

Florian