[Mifody]

Код:

procedure TNewThread.Execute;
var
    HTMLDocument: IHTMLDocument3;
begin
while Form1.WebBrowser1.ReadyState<READYSTATE_COMPLETE do
    Application.ProcessMessages;
HTMLDocument:=Form1.WebBrowser1.Document as IHTMLDocument3;
while pos('некая фраза', Form1.Memo1.Lines.Text) = 0 do
begin
HTMLDocument:=Form1.WebBrowser1.Document as IHTMLDocument3;
Form1.Memo1.Text := HTMLDocument.documentElement.innerText;
end;

вот это ВСЕ не так, обращение к элементам формы, надо, как миниум, в синхронайз выносить