diff --git a/src/PasVulkan.Scene3D.pas b/src/PasVulkan.Scene3D.pas
index 125a83b2f..78cb03b9b 100644
--- a/src/PasVulkan.Scene3D.pas
+++ b/src/PasVulkan.Scene3D.pas
@@ -11110,7 +11110,7 @@ procedure TpvScene3D.TLight.BeforeDestruction;
      if (fManualIndex+1)<fSceneInstance.fManualLights.Count then begin
       OtherLight:=fSceneInstance.fManualLights[fSceneInstance.fManualLights.Count-1];
       OtherLight.fManualIndex:=fManualIndex;
-      fSceneInstance.fManualLights[fIndex]:=OtherLight;
+      fSceneInstance.fManualLights[fManualIndex]:=OtherLight;
       fManualIndex:=fSceneInstance.fManualLights.Count-1;
      end;
      fSceneInstance.fManualLights.Extract(fManualIndex);