Изменение процедур, исполняемых при нажатии кнопки.

[AlexeyKrupnik]

Задача примерна такая: есть ~5 кнопок. На них привязаны процедуры 1-5 соответственно. При нажатии, допустим, на 1 кнопку, 4-5 становятся неактивными, на 1-3 меняются надписи, и меняются процедуры, привязанные к ним. Теперь на 1 привязана ~17 процедура, на 2 кнопку - 6 и т.д. И вот так процедуры будут присваиваться на кнопки, будут меняться надписи активность/неактивность и т.д. Можно ли это как-то реализовать именно таким образом? (Не создавая сотни кнопок и форм, т.к. количество процедур ~150)

[BDA]

Да, если я вас правильно понял:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  ...
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('1');
button1.OnClick:=Button2Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('2');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.OnClick:=Button1Click;
end;

[AlexeyKrupnik]

Вроде бы, всё должно работать!
Спасибо, буду тестить.