Готово. Переделал библиотеку с учетом ваших пожеланий.
Теперь функций в библиотеке две:
start - свернуть мидлет;
finish - развернуть мидлет.
Библиотека влияет на переменную
IsMidletPaused.
Проверял библиотеку на таком примере:
Program SuspendTest;
Uses suspend;
Var i: integer;
Begin
DrawText('Сворачивание', 5, 5);
Repaint; Delay(5000);
Suspend.start; // Сворачивание
for i:=0 to 100 do Delay(50); // Имитация бурной трудовой деятельности
Suspend.finish; // Разворачиваем мидлет
DrawText('Работаем дальше', 5, 25);
Repaint; Delay(5000);
End.