关于RadioGroup组建创建的疑惑

Question

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
  procedure FormCreate(Sender:TObject);
  procedure RadioGroup1Click(Sender:TObject);
  Procedure Button1Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
Procedure TForm1.FormCreate(Sender:TObject);
begin
  RadioGroup1.Items.Add('1-19');
  RadioGroup1.Items.Add('20-39');
  RadioGroup1.Items.Add('40-59');
  RadioGroup1.Items.Add('60-79');
  RadioGroup1.Items.Add('80-99');
end;Procedure TForm1.RadioGroup1Click(Sender:Tobject);
   begin
     Memo1.Clear;
     Memo1.Lines.Add(RadioGroup1.Items[RadioGroup1.ItemIndex]);
   end;
Procedure TForm1.Button1Click(Sender:TObject);
begin
   Application.Terminate;end;以上代码编译后可以运行 但是在RadioGroup1中却没有生成选项
请教各位是什么原因呢

Answer 1

FormCreate函数内加断点，看代码是否执行到了？