1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Btn1.OnClick:= SetBtnClick;
Btn2.OnClick:= SetBtnClick;
....
....
procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
   //if Tbutton(sender). then
   FBtnClick:= TButton(Sender).Name;
    
end;					

1:
2:
3:
4:
5:

procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
   if Assigned(FBtnClick) then
     FBtnClick( Sender );      
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type TWelcherButtonWurdeGeklickt = (bcButton1WurdeGeklickt ,bcButton2WurdeGeklickt, bcBugInKomponente );
//...
procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
   if Assigned(FBtnClick) then
     begin
        if Btn1=Sender then
          FBtnClick( bcButton1WurdeGeklickt )
        else if Btn2=Sender then
          FBtnClick( bcButton2WurdeGeklickt )
        else
          FBtnClick( bcBugInKomponente)
      end;  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

unit GaugeButton;

interface

uses
    SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, StdCtrls, StrUtils, Gauges;

type
   TGaugeKind = (gkHorizontalBar, gkVerticalBar);
   TGaugeButton = class(TCustomControl)

   private
       FBtnClick: TObject;
       ....
       ....
   protected
       ....
   public
       ....
       procedure SetBtnClick(Sender: TObject);
   published
       ...
end;

implementation

....
....

constructor TGaugeButton.Create (AOwner: TComponent);
begin
   inherited Create(AOwner);
   ... //<-- hier alles was für die Gauge wichtig ist
   ...
   
   FBtnFont:= TFont.Create; //<-- für die button

   Btn1:= TButton.Create(Self);
   Btn1.Parent:= Self;
   Btn1.Name:= 'Btn1';
   Btn1.OnClick:= SetBtnClick; //<-- zuweisung an die procedure
   Btn1.Font:= FBtnFont;
   ....
   ....
end;

procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
  if Assigned(FBtnClick) then
    FBtnClick:= (Sender);

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

TForm1.GaugeButton1Click(Sender: TObjekt);
begin
  If TGaugeButton(Sender).Name = 'ButtonGauge1' then
  begin
     if FBtnClick = ??? then
       //btn1 würde geklickt mache was
     else
       //btn2 wurde geklickt mache was anderes 
  end
  else
  If TGaugeButton(Sender).Name = 'ButtonGauge2' then
  begin
     if FBtnClick = ??? then
       //btn1 würde geklickt mache was
     else
       //btn2 wurde geklickt mache was anderes 
  end
   

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

public
    property BtnClick: String read FBtnClick;

procedure TGaugeButton.SetBtnClick(Sender: TObject);
begin
   if TButton(sender).Name = 'Btn1' then
      FBtnClick:= 'Btn1'
   else
     FBtnClick:= 'Btn2';

   onclick(self);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

type TButtonClicked = (btButton1, btButton2);

type TGaugeButtonClickEvent=procedure (Sender: TObject; Clicked: TButtonClicked) of object;

type TGaugeButton=class
//...
  private
     VOnButtonClick : TGaugeButtonClickEvent;
//...
     procedure ButtonClick(Sender: TObject);
  public
     property OnButtonClick: TGaugeButtonClickEvent read VOnButtonClick write VOnButtonCLick;
//...
end;

//...

constructor TGaugeButton.Create(...);
begin
  //...
  Btn1.OnClick:=ButtonClick;
  Btn2.OnClick:=ButtonClick;
  //...
end;

procedure TGaugeButton.ButtonClick (Sender: TObject);
begin
  if Assigned( VOnButtonClick) then
    begin
      if Sender=Btn1 then
         VOnButtonClick( Self, btButton1 ) 
      else if Sender=Btn2 then
         VOnButtonClick( Self, btButton2 );
    end;
end;

//...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

type TForm1=class
//...
   procedure GaugeButtonClick( Sender: TObject; Clicked: TButtonClicked);    

//...
GaugeButton1.OnButtonClick:= GaugeButtonClick;
GaugeButton2.OnButtonClick:= GaugeButtonClick;
//...

procedure TForm1.GaugeButtonClick (Sender: TObject; Clicked: TButtonClicked);
begin
  if Sender = GaugeButton1 then
     begin
       if Clicked=btButton1 then
         ShowMessage('Gauge1 - Button1 clicked')
       else if Clicked=btButton2 then
         ShowMessage('Gauge1 - Button2 clicked');
     end
  else if Sender = GaugeButton2 then
     begin
       if Clicked=btButton1 then
         ShowMessage('Gauge2 - Button1 clicked')
       else if Clicked=btButton2 then
         ShowMessage('Gauge2 - Button2 clicked');
     end; 
end;