<div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace;font-size:large"><span style="font-family:arial,sans-serif;font-size:small">2015-02-25 23:16 GMT+08:00  </span><span dir="ltr" style="font-family:arial,sans-serif;font-size:small"><<a href="mailto:hinstance@yandex.ru" target="_blank">hinstance@yandex.ru</a>></span><span style="font-family:arial,sans-serif;font-size:small">:</span><br></div><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">not sure if this helps, but:<br>
for example, if you want thread T to run using approx. 70% of max. available capacity, try this:<br>
<br>
repeat<br>
  T.Resume;<br>
  Sleep(70);<br>
  T.Resume;<br>
  Sleep(30);<br>
until ...<br></blockquote><div><br></div><div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;display:inline">​This seems not what I want. I would like to schedule it from within the thread.  My demo program is here:</div></div><div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;display:inline"><br></div></div><div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;display:inline"><a href="https://github.com/xrfang/fpcollection/blob/master/src/demos/asyncdo/demo.lpr">https://github.com/xrfang/fpcollection/blob/master/src/demos/asyncdo/demo.lpr</a></div></div><div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;display:inline"><br></div></div><div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;display:inline">TAsyncDo is the class I wrote to have a procedure run in parallel. </div></div><div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;display:inline"><br></div></div><div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;display:inline">I want to control priority of the thread from within the worker, not from the main thread. ​</div> </div></div></div></div>