[lmikle]

Ну а я о чем.
Допустим, описан некоторый метод ButtonClick. Так его разным кнопкам в OnClick и назначаешь:

Код:

type
  TForm1 = class(TForm)
    ...
  public
    procedure ButttonClick_1(Sender : TObject);
    procedure ButttonClick_2(Sender : TObject);
  end;

...

procedure ShowFrame(AFrame : TMyFrame);
begin
  ...
  // у нескольких кнопок одинаковый обработчик
  AFrame.Button1.OnClick := ButttonClick_1;
  AFrame.Button2.Onclick := ButttonClick_1;
  AFrame.Button3.Onclick := ButttonClick_1;

  // А у этой - другой
  AFrame.Button4.Onclick := ButttonClick_2;
end;