Установить приоритет процесса.

[Svoja4ok]

Всем привет!
Дано: Приложение, написанное мною, которое будет (сейчас просто сворачиваю) сидеть в трее и почти постоянно взаимодействовать с СОМ портом. то есть там происходит проверка каждую "Н" секунду появилось ли оборудование. нет- ждём следующей проверки, есть-меняемся данными.
Проблема: на второй, третий раз когда появляется оборудование, прога просто зависает и ничего с ним не делает, но если её развернуть, то усё становится ништяк.
Решение: мне так подумалось что нада выставить приоритет с normal на hightest/
Вопрос: Как это сделать и в какой момент времени это делать?

[Blood_Magic]

функция - то понятно какая, а вот когда, определись сам )))

SetPriorityClass(hProcess, dwPriorityClass)

если из самого приложения себе приоритет устанавливать, то hProcess:=Àpplication.Handle;

dwPriorityClass одно из значений:

HIGH_PRIORITY_CLASS
IDLE_PRIORITY_CLASS
NORMAL_PRIORITY_CLASS
REALTIME_PRIORITY_CLASS