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

[veila]

У меня на 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) кривость используемого алгоритма.
Выскажитесь плиз кто что думает по этому поводу и если можно помогите советом.

[ViNT]

Лучше сделать примерно так:

img:=im.image_from_url('http://63.71.95.8/image.jpg');
delay(10000);
drawImage(img,0,0);
repaint;