Examples Delphi

This is not a good thing for an application to do unnecessarily...
Super := Application.Handle;
if SetPriorityClass(Super,REALTIME_PRIORITY_CLASS) THEN
Application.MessageBox('Didn''t work','',MB_OK);