Missed line added.

#3
dvmorozov · Dec 3, 2019 · 70ee3bf · 70ee3bf
1 parent a180413
commit 70ee3bf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/TBoundingBoxServerForm/bounding_box_server_form.pas b/examples/TBoundingBoxServerForm/bounding_box_server_form.pas
@@ -783,6 +783,7 @@ procedure TBoundingBoxServerForm.FindGlobalMinVolume;
     { Waits until all runners finish computing. }
     for i := 0 to Runners.Count - 1 do
     begin
+        Runner:= TRunner(Runners[i]);
         fHandle := Runner.Handle;
         fMustContinue := True;
         while fMustContinue do
@@ -819,7 +820,6 @@ procedure TBoundingBoxServerForm.FindGlobalMinVolume;
     { It is not necessarily to free separately all runners,
       because the list owns them and removes them itself. }
     Runners.Free;
-
     Assert(FHandlers.Count = 0, 'All handlers should be freed by the output method.');
 
     QueryPerformanceCounter(fEndTime);