procedure NastavPrioritu(p:byte);

begin
case p of
1:Setpriorityclass(GetCurrentProcess(), IDLE_PRIORITY_CLASS);
2:Setpriorityclass(GetCurrentProcess(), NORMAL_PRIORITY_CLASS);
3:Setpriorityclass(GetCurrentProcess(), HIGH_PRIORITY_CLASS);
4:Setpriorityclass(GetCurrentProcess(), REALTIME_PRIORITY_CLASS);
end;
end;