diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas
index 7cd81b2ec7..46f68b5fcd 100644
--- a/lcl/editbtn.pas
+++ b/lcl/editbtn.pas
@@ -239,7 +239,7 @@ type
     procedure DestroyWnd; override;
     procedure EditKeyDown(var Key: Word; Shift: TShiftState); override;
     procedure EditChange; override;
-    procedure ButtonClick; override;
+    procedure BuddyClick; override;
     procedure SortAndFilter; virtual; abstract;
     procedure ApplyFilter(Immediately: Boolean = False);
     procedure ApplyFilterCore; virtual; abstract;
@@ -1221,7 +1221,7 @@ begin
   inherited;
 end;
 
-procedure TCustomControlFilterEdit.ButtonClick;
+procedure TCustomControlFilterEdit.BuddyClick;
 begin
   Text:='';
   Filter:='';