저도 잘은 모릅니다만, 아래의 방법은 어떠실지요...

여러개의 Control 에서 수행할 procedure 하나를 선언하시구...
각각의 Control 에 동일한 Event를 등록하시고...

해당 Control (여기서는 버튼)의 속성중 특정 속성...
이름으로 Check를 하시든가.. 아님 각각 Tag 속성을 달리하여 Tag 값으로 Check를 하셔서...
원하시는 작업을 진행하는 Routine을 추가하심 될 것 같네요.

아래는 Sample 입니다.

<!--CodeS-->
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ButtonClick(Sender: TObject);
var
   tmpBtn : TButton;
   tmpStr : string;
begin
   Try
       tmpStr := '';
       Try
           tmpBtn := nil;
           tmpBtn := Sender as TButton;
           tmpStr := '클릭하신 버튼은 => ' + tmpBtn.Name + ' (이)군요!!!';
       except
       end;
       showMessage(tmpStr);
   except
       on E : Exception do
       begin
           showMessage(E.Message);
       end;
   end;
end;

end.
<!--CodeE-->