Wie kann man das Ausführen der Threads Priorisieren

[ManSues]

Ich habe einen "Hauptthread" und mehrere "Nebenthreads". Alle greifen auf eine TThreadlist zu. Jetzt möchte ich den Zugriff auf TThreadlist priorisieren. Kann mir jemand sagen, wie man das macht?

Details:

HauptThread
TThreadlist.lock
was heraus holen
TThreadlist.unlock
Do something

NebenThread1
NebenThread2
NebenThread3
NebenThread4
:
NebenThread_n
alle rufen folgende Funktion auf
INPUT(data)
TThreadlist.lock
was hinein legen
TThreadlist.unlock

Der HauptThread soll die TThreadlist öffnen und schließen.
Dann soll nur EINER der Nebenthreads TThreadlist öffnen und schließen.
Dann soll wieder der HauptThread die TThreadlist öffnen und schließen.
Jetzt der nächste Nebenthread u.s.w. bis es wieder von vorne anfängt.