enlighten

This is the code section from inno setup.My intention is to make two Checkbox where at a time one is being selected. But this code return error when first checkbox is clicked. section: [Code] var Box2,CheckBox: TCheckBox; //Yes global variable. procedure CheckBoxOnClick(Sender: TObject); begin if Checkbox.Checked then //generate error BEGIN CheckBox.State := cbUnchecked; Box2.State := cbChecked; END else BEGIN CheckBox.State := cbChecked; Box2.State := cbUnchecked; END; end; procedure Box2OnClick(Sender: TObject); begin if Box2.Checked then //generate error BEGIN CheckBox.State := cbChecked; Box2.State := cbUnchecked; END else BEGIN CheckBox.State := cbUnchecked; Box2.State := cbChecked; END; end; procedure CreateTheWizardPages; var Page: TWizardPage; begin Page := CreateCustomPage(wpWelcome, 'Support Us', 'If you like this package ,then please support us.'); CheckBox := TCheckBox.Create(Page); CheckBox.Top :=ScaleY(8)+ScaleX(50); CheckBox.Width := Page.SurfaceWidth; CheckBox.Height := ScaleY(17); CheckBox.Caption := 'Do this'; CheckBox.Checked := True; CheckBox.OnClick := @CheckBoxOnClick; CheckBox.Parent := Page.Surface; Box2 := TCheckBox.Create(Page); Box2.Top :=ScaleY(8)+ScaleX(70); Box2.Width := Page.SurfaceWidth; Box2.Height := ScaleY(17); Box2.Caption := 'No,Thanks.'; Box2.Checked := False; Box2.OnClick := @Box2OnClick; { } Box2.Parent := Page.Surface; end; procedure InitializeWizard(); begin { Custom wizard pages } CreateTheWizardPages; end; Returns an error on firstbox click named: Access violation at address 00444400. Write of address 011ABFF8. Please tell me where to change..

ok.thanks

To make my question fully understandable to you i attach an image demonstration.Please see this: Well i developed my software,after finishing installing i want to show a window like in the image(from Bitcomet 1.19). But that software is built on NSIS and mine on INNO. So my requirement: 1.Show this window after installation but before finishing. 2.Writing custom message like: "Support Us". 3.Showing check box with two option: --[]Set Home page as:.... --[]No,Thanks so when [b]NO[/b] is selected a part of task will not execute. 4.Showing [my soft name] like [Bitcomet 1.19] at the lower left corner. Wish you understand.And please, wish u be a help.