關於procedure的嵌套

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Unit2;

type
  TForm1 = class(TForm)
    select: TRadioGroup;
    Button1: TButton;

    procedure selectClick(Sender: TObject);
  private
    { Private declarations }
    TranWay:integer;
  public
    { Public declarations }
  end;

 

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.selectClick(Sender: TObject);    //此處為第一層procedure 需要聲明
  var
    i:integer;
  procedure GetSelect(Va:integer);            //此處為第二層procedure ,不需要聲明.
  begin
    form1.Button1.Caption :='你選擇的是：'+(select.Items[va]);
  end;

begin
  GetSelect (select.ItemIndex);      //對第二層procedure的調用。
end;