1 files changed, 6 insertions, 5 deletions
diff --git a/src/base/URecord.pas b/src/base/URecord.pas
index 2c2093a0..a3f665e5 100644
--- a/src/base/URecord.pas
+++ b/src/base/URecord.pas
@@ -753,11 +753,12 @@ var
     // search devices with same description
     for i := 0 to deviceIndex-1 do
     begin
-      if (AudioInputProcessor.DeviceList[i].Name = name) then
-      begin
-        Result := true;
-        Break;
-      end;
+      if (AudioInputProcessor.DeviceList[i] <> nil) then
+	if (AudioInputProcessor.DeviceList[i].Name = name) then
+	begin
+	  Result := true;
+	  Break;
+	end;
     end;
   end;