Пытался загрузить страницу icq.com скопировать оттуда пол но при запуске белый экран...
Var
I,j:Integer;
conn : http;
link,contentType,S:string;
function getnick(str:string):string;
const
stri='var gGender = ';
strin=';';
Begin
i:=pos(Stri,str);
//i:=i+length(stri);
j:=pos(Strin,str);
getnick:=copy(str,i,j);
End;
begin
if not OpenHttp(conn, 'http://www.icq.com/people/217965/') then Halt;
SetHttpMethod(conn, GET);
AddHttpHeader(conn, 'User-agent', 'Opera Mini 9.25');
if SendHttpMessage(conn) <> 200 then Halt;
s:=getnick(GetHttpResponse(conn));
closehttp(conn);
repeat
setcolor(100,100,100);
DrawText(s, 0, 0);
repaint;
until false;
end.