[Gnom_aka_Lexander]

Подскадите, пожалуйста, как на одну кнопку повесить несколько кликов?

Код:

procedure Click(Sender: TObject);
begin
if OnClick then
  TwoClick else OnClick;
end;
................
BackButton.OnClick := @Click;

процедура Click выбивает ошибку на then, мне нужно, чтоб по нажатию на кнопку заменялся ее OnClick
Интересный дефолтный

инсталл

Код:

[Setup] 
AppName=My Application 
AppVersion=1.5 
DefaultDirName={pf}\My Application 

[_Code] 
procedure InitializeWizard(); 
begin 
      WizardForm.Color := clSilver; 
      WizardForm.AutoScroll := False; 
      WizardForm.ClientHeight := ScaleY(395); 
      WizardForm.ClientWidth := ScaleX(635); 

      WizardForm.WizardBitmapImage.Width := ScaleX(170); 
      WizardForm.WizardBitmapImage.Height := WizardForm.ClientHeight; 
      WizardForm.WizardBitmapImage.Parent := WizardForm; 

      WizardForm.OuterNotebook.Left := WizardForm.WizardBitmapImage.Width; 
      WizardForm.OuterNotebook.Width :=  WizardForm.ClientWidth-WizardForm.WizardBitmapImage.Width; 
      WizardForm.OuterNotebook.Height := ScaleY(345); 
      WizardForm.Bevel.Left := WizardForm.WizardBitmapImage.Width; 
      WizardForm.Bevel.Top := WizardForm.OuterNotebook.Height; 
      WizardForm.Bevel.Width := WizardForm.OuterNotebook.Width; 

      WizardForm.InnerNotebook.Left := ScaleX(8); 
      WizardForm.InnerNotebook.Width := WizardForm.OuterNotebook.Width-16; 
      WizardForm.InnerPage.Color := clSilver; 

      WizardForm.MainPanel.Left := WizardForm.WizardBitmapImage.Width; 
      WizardForm.MainPanel.Width := WizardForm.ClientWidth-WizardForm.WizardBitmapImage.Width; 
      WizardForm.MainPanel.Parent := WizardForm; 
      WizardForm.MainPanel.Color := clGray; 

      WizardForm.WizardSmallBitmapImage.Left := WizardForm.MainPanel.Width-WizardForm.WizardSmallBitmapImage.Width; 
      WizardForm.WizardSmallBitmapImage.Top := ScaleY(0); 

      WizardForm.PageDescriptionLabel.Left := ScaleX(32); 
      WizardForm.PageDescriptionLabel.Width := WizardForm.MainPanel.Width-WizardForm.WizardSmallBitmapImage.Width-WizardForm.PageDescriptionLabel.Left; 

      WizardForm.PageNameLabel.Width := WizardForm.MainPanel.Width-WizardForm.WizardSmallBitmapImage.Width-WizardForm.PageNameLabel.Left-10; 

      WizardForm.BeveledLabel.Left := WizardForm.WizardBitmapImage.Width; 
      WizardForm.BeveledLabel.Top := WizardForm.OuterNotebook.Height; 

      WizardForm.CancelButton.Left := ScaleX(535); 
      WizardForm.CancelButton.Top := ScaleY(360); 

      WizardForm.NextButton.Left := ScaleX(445); 
      WizardForm.NextButton.Top := ScaleY(360); 

      WizardForm.BackButton.Left := ScaleX(365); 
      WizardForm.BackButton.Top := ScaleY(360); 

      WizardForm.WelcomePage.Color := clSilver; 

      WizardForm.WelcomeLabel2.Left := ScaleX(16); 
      WizardForm.WelcomeLabel2.Top := ScaleY(167); 
      WizardForm.WelcomeLabel2.Width := ScaleX(437); 
      WizardForm.WelcomeLabel2.Height := ScaleY(135); 

      WizardForm.WelcomeLabel1.Parent := WizardForm.MainPanel; 
      WizardForm.WelcomeLabel1.Left := ScaleX(0); 
      WizardForm.WelcomeLabel1.Top := ScaleY(20); 
      WizardForm.WelcomeLabel1.Width := WizardForm.MainPanel.Width; 

      WizardForm.LicenseNotAcceptedRadio.Left := ScaleX(24); 

      WizardForm.LicenseAcceptedRadio.Left := ScaleX(24); 

      WizardForm.LicenseMemo.Width := WizardForm.InnerNotebook.Width; 

      WizardForm.DirBrowseButton.Left := ScaleX(366); 
      WizardForm.DirBrowseButton.Top := ScaleY(81); 
      WizardForm.DiskSpaceLabel.Top := ScaleY(112); 
      WizardForm.GroupBrowseButton.Left := ScaleX(366); 
      WizardForm.GroupBrowseButton.Top := ScaleY(214); 
      WizardForm.GroupBrowseButton.Parent := WizardForm.SelectDirPage; 

      WizardForm.DirEdit.Left := ScaleX(24); 
      WizardForm.GroupEdit.Left := ScaleX(24); 
      WizardForm.GroupEdit.Top := ScaleY(216); 
      WizardForm.GroupEdit.Parent := WizardForm.SelectDirPage; 

      WizardForm.SelectGroupBitmapImage.Top := ScaleY(136); 
      WizardForm.SelectGroupBitmapImage.Parent := WizardForm.SelectDirPage; 

      WizardForm.NoIconsCheck.Top := ScaleY(220); 
      WizardForm.NoIconsCheck.Parent := WizardForm.SelectDirPage; 

      WizardForm.SelectStartMenuFolderBrowseLabel.Parent := WizardForm.SelectDirPage; 
      WizardForm.SelectStartMenuFolderBrowseLabel.Top := ScaleY(180); 

      WizardForm.SelectStartMenuFolderLabel.Parent := WizardForm.SelectDirPage; 
      WizardForm.SelectStartMenuFolderLabel.Top := ScaleY(145); 
end; 

procedure CurPageChanged(CurPageID: Integer); 
begin 
    if CurPageID = wpWelcome then WizardForm.WizardSmallBitmapImage.Hide else WizardForm.WizardSmallBitmapImage.Show; 
    if CurPageID = wpWelcome then WizardForm.WelcomeLabel1.Show else WizardForm.WelcomeLabel1.Hide; 
end;

может кому пригодится в качестве базы