[aleksnine]

Код:

function title(link:string):string;
var
idHTTP:tidhttp;
i,y:integer;
s:string;
st:tstringlist;
const
tag_k='<div id="product-detail-topbox"><!-- product-detail-topbox -->';
//site='http://ua.oriflame.com';
begin
result:='не нашли';
idhttp:=tidHttp.Create(form1);
st:=tstringlist.Create;
st.Text:=idhttp.Get(link);
for i:=0 TO ST.Count-1 DO
begin
if st.Strings[i]=tag_k then
begin
s:=st.Strings[i+15];
for y:=0  to 2 do
s:=copy(s,ansipos('"', s)+1,length(s));
s:=copy(s,0,ansipos('"', s)-1);
result:='Название : ' +s  +#13;             // Получили название
s:=st.Strings[i+55];
s:=copy(s,ansipos('>', s)+1,length(s));
s:=copy(s,0,ansipos('<', s)-1);
result:=result + 'Описание : ' + s +#13;         // Получили описание
s:=st.Strings[i+74];
s:=copy(s,8,length(s));
result:=result + 'Цена : ' + s;                  // Получили  цену
end;
end;
idHTTP.Free;
st.Free;
end;