diff --git a/lcl/include/radiogroup.inc b/lcl/include/radiogroup.inc
index 886ece5890..75c6728b69 100644
--- a/lcl/include/radiogroup.inc
+++ b/lcl/include/radiogroup.inc
@@ -199,7 +199,7 @@ begin
       end;
     end;
 
-    if (FItemIndex>=FItems.Count) then FItemIndex:=FItems.Count-1;
+    if (FItemIndex>=FItems.Count) and not (csLoading in ComponentState) then FItemIndex:=FItems.Count-1;
 
     if FItems.Count>0 then
     begin