Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как поменять приоритет моего приложения?

01.01.2007
procedure TForm1.Button1Click(Sender: TObject);
var
 
ProcessID: DWORD;
 
ProcessHandle: THandle;
 
ThreadHandle: THandle;
begin
 
ProcessID := GetCurrentProcessID;
 
ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION,
   
false, ProcessID);
 
SetPriorityClass(ProcessHandle, REALTIME_PRIORITY_CLASS);
 
ThreadHandle := GetCurrentThread;
 
SetThreadPriority(ThreadHandle, THREAD_PRIORITY_TIME_CRITICAL);
end;

Взято с https://delphiworld.narod.ru