E2059 class，interface，および object はローカルに宣言することはできません (Delphi)

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

クラスとオブジェクトはローカルには宣言できません。

program Produce;

  procedure MyProc;
  type
    TMyClass = class
      Field: Integer;
    end;
  begin
  (*...*)
  end;

begin
end.

{ MyProc はクラス型をローカルに宣言しようとしており，違法である }

program Solve;

  type
    TMyClass = class
      Field: Integer;
    end;

  procedure MyProc;
  begin
  (*...*)
  end;

begin
end.

{ そのクラス型またはオブジェクト型の宣言をグローバルスコープへ移動すれば解決する }