Получить инфу из веб-страницы

[PeSmaker]

Добро время суток!!!
Меня интересует вопрос: как вытащить инфу из "Интернета". Заранее благодарен за оказанную Вами помощь.

С сайта:
http://ua.oriflame.com/products/prod...&prodCode=7191
Нужно вытащить:
1)Название продукта(Туалетная вода Lucia);
2)Описание продукта(Пусть аромат Lucia укажет вам путь к счастью! Этот цветочно-фруктовый букет, искрящийся ароматами лимона, цветков жасмина и индийского сандала, источает свет и чистоту. 50 мл.);
3)Его цену(194.00 грн.).

[PeSmaker]

ссылка:
ua.oriflame.com/products/product-detail.jhtml?prodCat=&prodFilter=&p rodCode=7191

[kangreon]

uses StrUtils, IdHTTP;

procedure oriflame(URL:string; var nam, des, mon:string);
var
  http : TIdHTTP;
  ms : TMemoryStream;
  sl : TStringList;
  s : string;
  i : Integer;
begin
  http := TIdHTTP.Create;
  sl := TStringList.Create;
  ms := TMemoryStream.Create;
  http.Get(URL,ms);
  ms.Seek(0,0);
  sl.LoadFromStream(ms);
  s := sl.Text;
  sl.Free;
  ms.Free;
  i := PosEx(' ',s,Pos('<ti',s))+1;
  nam := UTF8Decode(Copy(s,i,PosEx('<',s,i)-i));
  if nam[1]='-' then
  begin
    nam := 'Тут пусто';
    Exit;
  end;
  i := PosEx('="',s,Pos('description',s))+2;
  des := UTF8Decode(Copy(s,i,PosEx('"',s,i)-i));
  i := Pos('class="proddetPrice"',s)+40;
  mon := UTF8Decode(Copy(s,i,PosEx(#13,s,i)-i));
end;

Пример использования

procedure TForm1.Button1Click(Sender: TObject);
var
  nam, des, mon : string;
begin
  oriflame('http://ua.oriflame.com/products/product-detail.jhtml?prodCat=&prodFilter=&prodCode=7191',nam,des,mon);
  Memo1.Lines.Text := nam; //Название
  Memo1.Lines.Add(des); //описание
  Memo1.Lines.Add(mon); //Цена
end;

[Nurtas Semey.KZ]

Спасибо БОЛЬШОЕ!!! вы не представляете как вы мне па могли.. теперь я любой текст из страниц могу себе....... карочи вы меня поняли.. Спасибо еще раз!!!!!!!!!!!!!!!!