procedure TForm1.Web1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
x : Variant;
begin
try
x := Web1.Document;
Memo1.Text := x.Body.InnerText;
if Pos(Edit1.Text,Memo1.Text) = 0 then
begin
//已经找到需要查找的内容
end;
except end;
end;
---------------------
呵呵,记得结贴给分