如何复制webbrowser中的内容

如何把webbrowser中的内容copy到别的地方，如edit1中
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var Doc: IHTMLDocument2;
begin
       Doc :=WebBrowser1.Document as IHTMLDocument2;
end;
除了上面的，还要加什么东西？


if Doc.queryCommandEnabled('Copy') then
   Doc.execCommand('Copy',false,EmptyParam);
这两句是do 什么，有么用

WebBrowser1.ExecWB(OLECMDID_PASTE,OLECMDEXECOPT_DODEFAULT);
WebBrowser1.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT);
还有这两句
请高手帮忙写清代码

uses MSHTML;
procedure TForm1.Button2Click(Sender: TObject);
var
  TextRange : IHTMLTxtRange;
begin
  Try
    WebBbrowser1.SelectAll;
    TextRange := (WebBbrowser1.document as ihtmldocument2).Selection.createRange as IHTMLTxtRange;
    Memo1.Text := TextRange.text;
  except end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  vaTemp : OleVariant;
begin
  Try
    vaTemp := WebBbrowser1.OleObject.Document.Body.CreateTextRange;
    Memo1.Text := vaTemp.Text;
  except end;
end; 

********************************************

uses activex;

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;