用这个代码可以把浏览器变为编辑状态：

procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;

if Assigned(HTMLDocument) then
HTMLDocument.designMode:='On';
HTMLDocument.close;
end;

用以下代码可以把你输入到浏览器的文字读到：

HTMLDocument := WebBrowser2.Document as IHTMLDocument2;
WS2:=HTMLDocument.body.outerHTML;

问题是，我没法把 KEYDOWN 事件挂上去，不知道你什么时候在里面敲了键盘！