diff --git a/designer/askcompnamedlg.pas b/designer/askcompnamedlg.pas
index eb2a6a37ce..78ece23f86 100644
--- a/designer/askcompnamedlg.pas
+++ b/designer/askcompnamedlg.pas
@@ -204,7 +204,10 @@ procedure TAskCompNameDialog.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
   if (Key=VK_RETURN) and (ssCtrl in Shift) then
+  begin
+    Key := 0;
     ButtonPanel1.OKButton.Click;
+  end;
 end;
 
 function TAskCompNameDialog.GetNewText: string;