Разделение кода на части

[Heneken87]

А если к примеру определить
procedure Button1Click(Sender: TObject);virtual; abstract; как вируальный абстрактный.
А в отдельном классе определить метод
procedure Button1Click(Sender: TObject); override;
Такой конструкцией честно сам не пользовался, но МБ прокатит.
Хотя если честно событие переопределить как абстрактный метод , даже незнаю че выйдет из этого =)
Если будет исключительная абсрактного метода, то скорей всего надо копать в сторону как переопределить событие через абстрактные вещи.

[evg_m]

А в отдельном классе определить метод
procedure Button1Click(Sender: TObject); override;

каком классе? наследнике формы ? а кто его создаст, да так чтобы форма инициировалась корректно.
если все это да. то нет проблем.
кроме одной, в классическом наследнике (с использованием *.dfm) переопределение реакции на событие есть и так и даже с наследованием вызова.
и все эти телодвижения не нужны.

но если это к этому коду

if ........ then ActionProc1(........)
else if ...... then ActionProc2()
else ActionProcOther(.....);

, т.е. назначить "разные" обработки при разных условиях.

для событий установки условий пишем ЕДИНЫЙ обработчик( или же ВО ВСЕХ установках вызываем одну процедуру( или функцию) результатом которой будет програмнная установка "правильной" процедуры обработки.

// пишем функцию определения действий по заданным условиям 
function TFormX.GetMyAction: TNotifyEvent; 
begin
  if checkboxX.checked then result:=MyAction1
  else  if checckboxZ.checked then result:=MyAction3
  else result:=MyActionDefaut;
end;

все тот же if then else if then else; но в другом месте.

при наличии форм наследников и необходимости расширения(дополнения новыми действиями) делаем его virtual; + override; c обязательным вызовом родительской версии inherited;

// при событиях "изменении условий" вызываем нашу функцию "вычисления действия" и задаем нужное(вычисленное) действие.
procedure TformX.checkboxXChange(Sender: TObject);
begin
   buttonRun.OnCick:=GetMyAction;
end;