program WebDemo;
uses web;
var
a : integer;
begin
if web.open('http://piligrim.wapland.org')<>0 then begin
a := web.send;
if a<>200 then
Debug('answer: '+a);
drawText(web.get_response, 0, 0);
web.close;
end;
repaint;
delay(2000);
end.
нормально получает страницу. библиотека не переделывалась, просто добавлена одна функция