diff --git a/ide/newdialog.pas b/ide/newdialog.pas
index 2fdc646cf3..fd0c8d32cd 100644
--- a/ide/newdialog.pas
+++ b/ide/newdialog.pas
@@ -250,7 +250,7 @@ end;
 
 procedure TNewOtherDialog.ItemsTreeViewDblClick(Sender: TObject);
 begin
-  OkButton.Click;
+  OkButtonClick(Self);
 end;
 
 procedure TNewOtherDialog.SetupComponents;