Все же можно предположить, что мидлет вылетает изза ресурсов. Посмотрите в консоль - там будет написана ошибка, вызывающая зависание.
Так же можно использовать процедуру debug(string) для пошаговой проверки - можно узнать, что и когда случается, и почему программа перестает работать.
Тестировал с следующим кодом, работает, возращает информацию о стадиях в консоль (Log).
program Mp11;
var bgmx:integer;
bgm,pgb,prg:image;
begin
bgmx:=-240;
setColor(0,0,0);
fillRect(0,0,240,400);
setcolor(255,255,255);
drawText('Загрузка библиотеки...',10,10);
repaint;
{загрузка первого файла музыки}
delay(1000);
drawText('Загрузка среды...',10,30);
repaint;
debug('Loading images...');
bgm:=loadImage('/icon.png');
pgb:=loadImage('/icon.png');
prg:=loadImage('/icon.png');
debug('Images loaded.');
{загрузка всей графики}
delay(1000);
repeat
bgmx:=bgmx+5;
drawImage(bgm,bgmx,0);
repaint;
until bgmx > GetWidth;
debug('Loop done.');
repaint;
debug('Drawing pgb...');
drawImage(pgb,0,300);
repaint;
debug('Done.');
delay(100000);
end.
__________________
Мой сайт-блог. Игры, обновления, примеры для Haxe, JavaScript(+HTML5), GameMaker, Love2d...