Zmiana priorytetu i czekanie

Mam 2 pytania.

1. Jak zrobić przycisk zmieniający priorytet aplikacji na wysoki?
2. Jak zrobić aby program czekał tyle sekund ile jest napisane w Edit1??

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

Źródło: http://www.delphitricks.com/source-code/windows/change_the_priority_of_applications_main_thread.html
2)

Sleep(StrToInt(Edit1.Text) * 1000));