From 28661051e73edf775c698821306fba413069f1a5 Mon Sep 17 00:00:00 2001
From: Michalis Kamburelis <michalis.kambi@gmail.com>
Date: Fri, 3 Apr 2026 02:49:36 +0200
Subject: [PATCH] Fix TpvScene3D.TLight.BeforeDestruction mistakenly accessing
 fSceneInstance.fManualLights with index -1

---
 src/PasVulkan.Scene3D.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);