diff --git a/SettingsForm.pas b/SettingsForm.pas
index 0440926..a6f8a10 100644
--- a/SettingsForm.pas
+++ b/SettingsForm.pas
@@ -2051,6 +2051,7 @@ var
   OldTXSel: string;
 begin
   Names := TStringList.Create;
+  FLoading := True;
   try
     if AudioOut <> nil then
     begin
@@ -2098,6 +2099,7 @@ begin
       else FCmbTXDev.ItemIndex := 0;
     end;
   finally
+    FLoading := False;
     Names.Free;
   end;
 end;