Изменить приоритет главного потока приложения

Оформил: DeeCo

procedure TForm1.Button1Click(Sender: TObject);
 var
   MainThread: THandle;
 begin
   MainThread := GetCurrentThread;
   SetThreadPriority(MainThread, THREAD_PRIORITY_HIGHEST);
 end;