Title: change the priority of applications main thread?procedure TForm1.Button1Click(Sender: TObject);var MainThread: THandle;begin MainThread := GetCurrentThread; SetThreadPriority(MainThread, THREAD_PRIORITY_HIGHEST);end;