diff --git a/source/exportgrid.dfm b/source/exportgrid.dfm
index 6ad3f34f..1842ac1c 100644
--- a/source/exportgrid.dfm
+++ b/source/exportgrid.dfm
@@ -302,6 +302,7 @@ object frmExportGrid: TfrmExportGrid
       Style = csExDropDownList
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 0
+      OnSelect = comboFormatSelect
       Images = MainForm.VirtualImageListMain
       DropDownCount = 20
     end
diff --git a/source/exportgrid.pas b/source/exportgrid.pas
index bc62f4c2..42ab33b8 100644
--- a/source/exportgrid.pas
+++ b/source/exportgrid.pas
@@ -80,7 +80,7 @@ type
     procedure ValidateControls(Sender: TObject);
     procedure btnOKClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure grpFormatClick(Sender: TObject);
+    procedure comboFormatSelect(Sender: TObject);
     procedure btnSetClipboardDefaultsClick(Sender: TObject);
   private
     { Private declarations }
@@ -325,7 +325,7 @@ begin
 end;
 
 
-procedure TfrmExportGrid.grpFormatClick(Sender: TObject);
+procedure TfrmExportGrid.comboFormatSelect(Sender: TObject);
 var
   Filename: String;
 begin