du könntest die prioritäten als konstanten deklarieren:
Delphi-Quellcode:
var
Priorities: array[0..3] of longint =
(REALTIME_PRIORITY_CLASS, HIGH_PRIORITY_CLASS, IDLE_PRIORITY_CLASS, NORMAL_PRIORITY_CLASS);
Somit kannst du hier einfach mit dem Index zugreifen