diff --git a/examples/multithreading/mainunit.pas b/examples/multithreading/mainunit.pas
index fbb767808b..aa386d3bd8 100644
--- a/examples/multithreading/mainunit.pas
+++ b/examples/multithreading/mainunit.pas
@@ -103,6 +103,7 @@ begin
       fStatusText := newStatus;
       Synchronize(@Showstatus);
     end;
+    sleep(50); // alternatively the thread may wait for an event. E.g., external I/O
   end;
 end;