Проверка текста в webbrowser

[nenoob1]

Здравствуйте форумчане, появилась проблема. В интернете ничего подобного не нашел.
Проблема: В webbrowser загружается страница, нужно сделать проверку определенного текста на странице, если текст есть то происходит то-то..., если нет, то что-то другое.

p.s. жесть весь инет перерыл, ничего подобного не нашел, помогите.

[grafgrial]

Вот это должно помочь, только под свое приложение сделай

procedure TForm1.Button3Click(Sender: TObject);
var 
Find:string; 
i:integer;  
begin
find:=Edit1.Text; 
For i:=0 to Memo2.Lines.Count-1 do 
If Pos(FIND, Memo2.Lines.Text)<>0 
Then
Begin
Memo2.SetFocus();
Memo2.SelStart:=Pos(FIND,Memo2.Lines.Text)-1;
Memo2.SelLength:=Length(FIND);
End;
end;

[nenoob1]

grafgrial, спасибо, но я наверное что то не понял, где здесь webbrowser используется?)

[DomiNick]

На форуме есть тема, где показано как скопировать только текст из TWebBrowser (без тегов и.т.п.) в TMemo...
Найдите её - и тогда всё "срастётся"...