求高手解决一上intraweb IWRadioButton1.Checked的值都false

求高手解决一下intraweb IWRadioButton1.Checked的值都false
procedure TIWForm1.IWButton2Click(Sender: TObject);
begin
     if IWRadioButton1.Checked then
   WebApplication.ShowMessage('选中')
   else
    WebApplication.ShowMessage('没选中')

end;


结果都是  没选中

求高手解决一下
[解决办法]
建一个空白页面实验一下？

unit Unit1;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
  IWCompButton, IWCompRadioButton, Controls, IWVCLBaseControl,
  IWBaseControl, IWBaseHTMLControl, IWControl, IWHTMLControls;

type
  TIWForm1 = class(TIWAppForm)
    rb1: TIWRadioButton;
    btn1: TIWButton;
    procedure btn1Click(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}


procedure TIWForm1.btn1Click(Sender: TObject);
begin
  if rb1.Checked then
  begin
    WebApplication.ShowMessage('check');
  end;  

end;

initialization
  TIWForm1.SetAsMainForm;

end.