E2074 宣言され参照されたラベルがありますが定義がありません : '%s' (Delphi)

エラーと警告のメッセージ（Delphi） への移動

プログラムの中でラベルを宣言して使用しましたが，ソースコード内でラベル定義が検出されませんでした。

  program Produce;

    procedure Labeled;
    label 10;
    begin
      goto 10;
    end;

  begin
  end.

{ ラベル 10 を手続き Labeled の中で宣言して使ったが，コンパイラがそのラベルの定義を検出できない }

  program Produce;

    procedure Labeled;
    label 10;
    begin
      goto 10;
      10:
    end;

  begin
  end.

{ 宣言して使用しているラベルの定義を必ずプログラムの同じスコープ内に置けば問題は簡単に解決する }