[cherepets]

нужна помощь, думаю ошибка по теме запросов.
короч, написал я прогу которая с сайта хтмл-код берет.
компилиться без проблем, на эмуле работает хорошо, а на телефон не хочет даже устанавливаться!
методом удаления различных частей кода узнал что проблема в этом месте:

function getpage(page:string):string;
var conn:http;
		 contenttype:string;
		 i:boolean;
begin
i:=openhttp(conn,page);
sethttpmethod(conn,GET);
addhttpheader(conn,'User-agent','Opera 10');
if sendhttpmessage(conn)=200 then begin
getpage:=gethttpresponse(conn);
contenttype:=gethttpheader(conn,'Content-type');
closehttp(conn);
end; end;

procedure pages;
var h,i:integer;
		 code:string;
begin
{ОКНО}
repeat until getkeypressed=KE_NONE;
setclip(0,0,240,320);
drawimage(loadimage('/pana.png'),(getwidth-176)/2,(getheight-208)/2);
font(2);
drawstring('drBrowser',(getwidth-176)/2+2,(getheight-208)/2);
setclip((getwidth-176)/2,(getheight-208)/2+15,176,178);
setcolor(225,220,220);
fillrect((getwidth-176)/2,(getheight-208)/2+15,174,176);
setcolor(110,100,100);
drawrect((getwidth-176)/2,(getheight-208)/2+15,174,176);
{ТЕЛО}
font(1);
code:=getpage('http://site72.narod.ru/weather.html');
if code<>'' then begin
h:=format(copy(code,0,length(code)-451),0);
textwindow((getwidth-176)/2+2,(getheight-208)/2+15+1,174,177);
drawtextwindow; end;
repaint;
repeat until getkeypressed<>KE_NONE;
end;

вопрос: в чем хрень и что делать?