Автор: http://www.swissdelphicenter.ch

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