[Deport]

вот тебе маленький тест как всё это работает

Program test;
uses proweb;
Var rc,c,x,y,i:integer;
str,def,text,null,Ru:string;
Begin
repeat
str:=null;
open('http://forum.boolean.name');
if get_error='' then set_method(GET);
if get_error='' then rc:=request;
if get_error='' then str:=get_data;
until rc=200;
c := Length(str);//считаем байты страницы
x:=Pos(str,'<title>');//Определим нахождение надписи <title> передадим х
y:=Pos(str,'</title>');//Определим нахождение надписи </title> передадим у
text:=Copy(str,x+7,y);//Скопируем текст по координатам х,у передадим результат text
Ru:=encode(text, 'utf-8', def);//Переведём кракозябры на русский из text в Ru
showform;//Новая форма
i := FormAddString(Ru);//Отобразим результат между строк <title></title>
delay(-1);//Бесконечное выполнение программы
end.