请问在delphi多线程中能否实现对各线程分配时间的精确控制

比如说两个线程所执行的事情是一样的，能否让其中一个线程执行的进度为另一个线程的任意倍，
比如说其中一个线程执行了60％，另一个线程只执行了20％。
谢谢大家了！