diff --git a/source/about.dfm b/source/about.dfm
index cb3b8a5d..c4f5e595 100644
--- a/source/about.dfm
+++ b/source/about.dfm
@@ -1455,8 +1455,8 @@ object AboutBox: TAboutBox
     Cancel = True
     Caption = 'Close'
     Default = True
+    ModalResult = 1
     TabOrder = 1
-    OnClick = ButtonCloseClick
   end
   object PanelMain: TPanel
     Left = 1
diff --git a/source/about.pas b/source/about.pas
index da36c0b7..7dbe7cb5 100644
--- a/source/about.pas
+++ b/source/about.pas
@@ -33,7 +33,6 @@ type
     btnUpdateCheck: TButton;
     procedure btnUpdateCheckClick(Sender: TObject);
     procedure OpenURL(Sender: TObject);
-    procedure ButtonCloseClick(Sender: TObject);
     procedure MouseOver(Sender: TObject; Shift: TShiftState; X, Y: Integer);
     procedure FormShow(Sender: TObject);
 
@@ -79,12 +78,6 @@ begin
 end;
 
 
-procedure TAboutBox.ButtonCloseClick(Sender: TObject);
-begin
-  Close();
-end;
-
-
 procedure TAboutBox.MouseOver(Sender: TObject; Shift: TShiftState;
   X, Y: Integer);
 begin