[temned]

Опять я! разобрался я как ставить изображение загрузки,но возникла ошибка. когда я тестирую на эмулятооре, то прога работает как надо. Но когда тестирую на сотике(se), то вместо загрузки идет белый экран, а потом прога начинает работать . ВОТ часть кода:Помогите плыз

procedure OnLoad;
begin
repeat
n:=GetWidth;
za1 :=Loadimage('/q13.png');{гружу} n:=n-GetWidth/2;
za3 :=Loadimage('/q1.png'); {гружу} n:=n-GetWidth/2;
SetColor(0,0,0);FillRect(0,0,GetWidth,GetHeight);
SetColor(0,0,255); FillRect(0,GetHeight-20,GetWidth-n,10); SetColor(192,192,192); DrawRect(0,GetHeight-20,GetWidth,10);
drawText('Ждите...',0 , GetHeight/2);
repaint;
until n=0;
end;

begin
OnLoad;
DrawImage(za1,0,0); {рисую}
repaint;
delay(1500);
DrawImage(za3,0,0);{рисую}
repaint;
delay(2000);
wi:=GetWidth; hi:=GetHeight;
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_PLAIN, FONT_SIZE_SMALL);
ShowMenu;
End.