diff --git a/components/rtticontrols/rttictrls.pas b/components/rtticontrols/rttictrls.pas
index 418face33b..99937b6128 100644
--- a/components/rtticontrols/rttictrls.pas
+++ b/components/rtticontrols/rttictrls.pas
@@ -835,10 +835,10 @@ Type
     procedure SetLink(const AValue: TPropertyLink);
   protected
     function LinkTestEditor(const ATestEditor: TPropertyEditor): Boolean; virtual;
-    procedure Click; override;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
+    procedure Click; override;
     property Link: TPropertyLink read FLink write SetLink;
   end;
 
diff --git a/lcl/include/buttons.inc b/lcl/include/buttons.inc
index c3e0c58158..6f1ae727c8 100644
--- a/lcl/include/buttons.inc
+++ b/lcl/include/buttons.inc
@@ -341,14 +341,3 @@ begin
     TWSButtonClass(WidgetSetClass).SetDefault(Self, FActive);
 end;
 
-
-{ TButton }
-
-procedure TButton.Click;
-begin
-  inherited Click;
-end;
-
-
-
-
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index 5f8765f6b2..f495553300 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -1104,7 +1104,6 @@ type
     procedure UpdateFocus(AFocused: Boolean);
   protected
     class procedure WSRegisterClass; override;
-    procedure Click; override;
     procedure CreateWnd; override;
     procedure CreateParams(var Params: TCreateParams); override;
     procedure ControlKeyDown(var Key: Word; Shift: TShiftState); override;
@@ -1120,6 +1119,7 @@ type
     procedure UpdateDefaultCancel;
   public
     constructor Create(TheOwner: TComponent); override;
+    procedure Click; override;
     procedure ExecuteDefaultAction; override;
     procedure ExecuteCancelAction; override;
     procedure ActiveDefaultControlChanged(NewControl: TControl); override;
@@ -1140,8 +1140,6 @@ type
   { TButton }
 
   TButton = class(TCustomButton)
-  public
-    procedure Click; override;
   published
     property Action;
     property Align;