From 43787906eaa421bfec3150308876fc84ac0e8c8b Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 12 Apr 2020 23:53:13 +0000
Subject: [PATCH] Examples: Multithread, reduce CPU. Issue #0036904 Patch by
 Vojtech Cihak

git-svn-id: trunk@62953 -
---
 examples/multithreading/mainunit.pas | 1 +
 1 file changed, 1 insertion(+)

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;