diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas
index bbf0a05b67..68186c0b01 100644
--- a/lcl/editbtn.pas
+++ b/lcl/editbtn.pas
@@ -699,7 +699,7 @@ type
   
   { TCalcEdit }
   
-  TAcceptValueEvent = procedure(Sender: TObject; var AValue: Double; var Action: Boolean) of object;
+  TAcceptValueEvent = procedure(Sender: TObject; var AValue: Double; var Accept: Boolean) of object;
   TCalcEdit = class(TCustomEditButton)
   private
     FDialogTitle: String;