[Serega]

как на одну кнопку повесить несколько кликов? »

Один из вариантов, это задавать свойство Tag := 0, 1 и так далее, выполняешь какой-то код, затем меняешь значения при каждом клике:

Пример

Код:

procedure Click(Sender: TObject);
begin
  case TButton(Sender).Tag of
    0:begin
        { выполняем какой-то код... }
        { присваиваем новое значение }
        TButton(Sender).Tag := 1;
      end;
    1:begin
        { выполняем какой-то код... }
        { присваиваем новое значение }
        TButton(Sender).Tag := 0;
      end;
  end;
  { для примера, отобразим в зоголовке }
  WizardForm.Caption := 'BackButton.Tag := ' + IntToStr(TButton(Sender).Tag);
end;

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

Ну допустим на then ошибки быть не может, компилятор вам просто говорит, что для проверки условия данных не достаточно и тем более не понятно, что такое if OnClick then.
Если меняете стандартные функции кнопок, то лучше использовать их родные, такие как function BackButtonClick(CurPageID: Integer): Boolean;, а уже в них разрешать выполнение, либо запрещать.