diff --git a/ide/useunitdlg.pas b/ide/useunitdlg.pas
index e52cba4cba..0b2e6f0c1d 100644
--- a/ide/useunitdlg.pas
+++ b/ide/useunitdlg.pas
@@ -469,7 +469,7 @@ end;
 
 function TUseUnitDialog.InterfaceSelected: Boolean;
 begin
-  Result:=SectionRadioGroup.ItemIndex=0;
+  Result:=(not SectionRadioGroup.Enabled) or (SectionRadioGroup.ItemIndex=0);
 end;
 
 procedure TUseUnitDialog.DetermineUsesSection(ACode: TCodeBuffer);