Заставить файл ждать...[delphi]

Всем привет! Подскажите как выполнить такие действия:
Цикл бесконечный:
1. Загружаем файл.
2. Вырезаем ссылку.
3. TWeBrowser на нее переходит.

Реализовал:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
While true do begin
If GetInetFile('http://site.ru', 'opa.js')=true then Memo1.Lines.LoadFromFile('opa.js');
s:=memo1.Lines.Strings[1];
Delete(s,1,21);
Delete(s,81,136);
WebBrowser1.Navigate(s);
end;
end;

, но как проверить условие - загрузилась ли ссылка или нет, и если да, то следующий круг цикла?

 

под рукой сейчас Delphi нету, но возможно у TWebBrowser'а есть событие что-то типа OnNavigateComplete...советую там посмотреть.

 

Вот код:

Code:

procedure navig;
begin
{здесь твоя процедура навигации}
Form1.WebBrowser1.Navigate('google.ru');
end;

{$R *.dfm}

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
navig;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Navig;
end;

Code:

OnDocumentComplete=WebBrowser1DocumentComplete