初学delphi，问一个TRadioGroup.itemindex的问题。请看代码。谢谢。

Question

初学delphi，问一个TRBGROUP的问题。在一个窗口中有一个rbuttongroup，选中第三个，在点title上的x，应取消选择，但是再次打开(showModal)，还是第三个。请看代码。谢谢。procedure TTH004Frm.FormShow(Sender: TObject);
begin
   bOk := false;
   nRequest := rgDivision.ItemIndex;
end;procedure TTH004Frm.btnCloseClick(Sender: TObject);
begin
  bOk := true;
  close;
end;procedure TTH004Frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin  if Not bOk then
  begin
    rgDivision.ItemIndex := nRequest;
  end;end;

Answer 1

试试改在CloseQuery处理
begin  if Not bOk then
  begin
    rgDivision.ItemIndex := nRequest;
  end;end;

Answer 2

bOk 是變量還是控件？你採用這樣的形式調用模式窗體：
ModalForm  Create
Try
  if ShowModal=mrOk  //返回值自定義
  begin
    //數據處理
  end;
Finnaly
  ModalForm.Free
End;

Answer 3

bOk 是變量還是控件？你採用這樣的形式調用模式窗體：
ModalForm  Create
Try
  if ShowModal=mrOk  //返回值自定義
  begin
    //數據處理
  end;
Finnaly
  ModalForm.Free
End;

Answer 4

to  ly_liuyang(Liu Yang) 在closequery中写代码,无法解决。还有别的方法吗？
to Bes96261(秋水孤鶩) bOk 是變量。