* if high/low bounds are the same, loop is not executed. Fixes issue #41512

packages/vcl-compat/src/system.threading.pp

@@ -3175,6 +3175,7 @@ begin
     Sub.Start;
     ThreadLog('TTask.ExecuteReplicates','Started replica');
     end;
+  DoCallUserCode;
 end;