Delphi的goto语法

今天第一次主要到Delphi也有goto语法，特别是其奇怪的label声明。估计主要是用来跳出多重循环，而且还真有人使用这种方式。记个笔记：

procedure TForm1.btn3Click(Sender: TObject);
var
    I, J: Integer;
label
    label1;
begin
    for I := 0 to 5 do
    begin

        for J := 1 to 3 do
        begin

            if J = 2 then
                goto label1;
        end;
    end;
    label1:
end;