Получение основной статьи с сайта

[dubailand]

Всем привет. Заканчивается год - надо доделывать запланированное. Итак, написал код на получение title, description и keywords с сайта:

procedure TForm1.onclick(Sender: TObject);
var Cache: string;
Doc: IHTMLDocument2;
V: OleVariant;
DocA: IHTMLElementCollection;
DocElement: IHtmlElement;
i:integer;
begin
      Memo1.Clear;
      Cache:=HTTP.Get(Edit1.Text);
      Doc := coHTMLDocument.Create as IHTMLDocument2;
      v:= VarArrayCreate([0, 0], varVariant);
      V[0]:=Cache;
      Doc.Write(PSafeArray(TVarData(v).VArray));
      DocA:=Doc.all.tags('meta')as IHTMLElementCollection;
      edit2.Text:=Doc.title;
      for i:=0 to DocA.length-1 do
      begin
            DocElement:=DocA.Item(i, 0) as IHtmlElement;
            Cache:=DocElement.getAttribute('name',0);
            if LowerCase(Cache)='description' then Edit3.Text:=DocElement.getAttribute('content',0);
            if LowerCase(Cache)='keywords' then Edit4.Text:=DocElement.getAttribute('content',0);
      end;
end;

Все работает хорошо, но вот как скопировать именно статью с сайта??? Основной текст?? И вообще, реально ли это?? Хотя все ж реально)))) Сайты будут разные, поэтому отдельно по тегу прописывать неудобно будет(( К тому же мета-тегами статья вроде не выделяется...
Всем заранее спасибо и с наступающим...