[NumLock]

вообще не понятно зачем тут ActionList?

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure ButtonClick(Sender: TObject);
...
procedure TForm1.ButtonClick(Sender: TObject);
begin
  // Sender
end;

Код:

  object Button1: TButton
    OnClick = ButtonClick
  end
  object Button2: TButton
    OnClick = ButtonClick
  end
  object Button3: TButton
    OnClick = ButtonClick
  end