>>701
メインスレッドIDは、System.pasで定義されるMainThreadID

実行中のスレッドIDは、TThreadクラスから
TThread.CurrentThread.ThreadID

で取ればクロスプラットホームでもいけるんじゃないかな?