forum.boolean.name - Программа работающая с http-сервером

У меня на http-сервере периодически обновляеться картинка в формате jpg. Я написала мидлет который периодически скачивает эту картику и показывает ее на экране телефона:

Код:

program midlet;

uses im;

var

        clicked, exitCmd, onCmd, offCmd: command; 

begin

  exitCmd:= CreateCommand('Exit', CM_EXIT, 1);

  onCmd:= CreateCommand('On', CM_OK, 2);

  offCmd:= CreateCommand('Off', CM_OK, 2);

  AddCommand(exitCmd);

  repeat

    AddCommand(onCmd);

          DrawText('Cam 1', 0, 0);        

          DrawImage(LoadImage('/fon.jpg'), 0, 20);  

    Repaint;

    repeat

      clicked:= GetClickedCommand;

      if clicked = exitCmd then Halt;

    until clicked = onCmd;

    RemoveCommand(onCmd);

    AddCommand(offCmd);

    Repaint;

    repeat

      clicked:= GetClickedCommand;

      if clicked = exitCmd then Halt;

      DrawImage(im.image_from_url('http://63.71.95.8/image.jpg'), 0, 20);

      Repaint;

      Delay(5000);

    until clicked = offCmd;

    RemoveCommand(offCmd);

    clicked:= GetClickedCommand;

  until clicked = exitCmd;

  Delay(5000);

end.

Картинка всегда примерно 5-6 Кб. Уровень сигнала всегда высокий. Проблема в том что не выдерживаеться интервал в 5 секунд. И еще бывает зависает мидлет.
Мне приходят только две причины в голову: 1) нестабильность мобильного интернета; 2) кривость используемого алгоритма.
Выскажитесь плиз кто что думает по этому поводу и если можно помогите советом. :)