독수리 님이 쓰신 글 :
: webbrowser에서 선택한 부분만 텍스트 또는 html  문서로 가져올수 있는 방법좀
: 알려주세요

답답해서 여기저기 찾다가
http://www.delphipages.com/threads/thread.cfm?ID=77961&G=76778
여기에서 찾았습니다
내용을 첨부해 봅니다

uses ...,ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.ExecWB(OLECMDID_SELECTALL,OLECMDEXECOPT_PROMPTUSER,EmptyParam,EmptyParam);
WebBrowser1.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER,EmptyParam,EmptyParam);
Memo1.PasteFromClipboard;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
WebBrowser1.Navigate('www.delphipages.com');
end;

// must have these!!!
// Before the "end."  at the bottom of your unit...
initialization
OleInitialize(nil);

finalization
OleUninitialize;