一个简单的多线程问题！希望有人来答！(100分)

为什么priority要设为tptimecritical才能把图画完
而tpnormal却画一点点就不画了！
该程式在 http://cn.geocities.com/wlycctv 大小5xxk
而且按下线程的按Button12执行线程时不能按别的按钮，是为什么？

不好意思写错了！
该程式在 http://cn.geocities.com/wlycctv/error.zip 大小5xxk

tptimecritical:The thread gets highest priority
void __fastcall TForm1::Button1Click(TObject *Sender)
{
switch (ThreadedTimer->ThreadPriority)
{
case tpIdle: ThreadedTimer->ThreadPriority = tpLowest;
break;
case tpLowest: ThreadedTimer->ThreadPriority = tpLower;
break;
case tpLower: ThreadedTimer->ThreadPriority = tpNormal;
break;
case tpNormal: ThreadedTimer->ThreadPriority = tpHigher;
break;
case tpHigher: ThreadedTimer->ThreadPriority = tpHighest;
break;
case tpHighest: ThreadedTimer->ThreadPriority = tpTimeCritical;
break;
case tpTimeCritical: ThreadedTimer->ThreadPriority = tpIdle;
break;
}
}

你的程序写得太难看了，拒绝读！请规范书写程序！

真好笑，我觉得这样更好读一些，看来你是被教条束缚太多了，那你写个漂亮些的
版本出来看看呢？

不好意思！我是初学者，有空时自学的，不然怎么会提问这么简单的问题！
写程式不规范就是以上原因！
敬请教导！帮我改一下！

谁解释一个 YB_unique
的那些代码对我问题起那方面的作用？我真的不懂！

按下线程的按Button12执行线程时不能按别的按钮，线程独占cpu,线程中用application.processmessage;响应消息；

to wang_junfan
怎么做？打个例子！
我不懂application.processmessage是什么东东？

各位高手：
我怎样判断我的线程当前是否已经结束了
最好能给点详细的代码

application.processmessage只是将控制权交给应用程序处理。全局变量在同一时刻只能有
一个线程访问，所以必须对其锁定，或其它方式。。

多人接受答案了。