While AdoQuery1.Eof=False do begin
 ...
{Тут заполняю форму в TWEBBrowser-e}
 ...
FormItem.Item(j).click;{Щелкаю на кнопку чтобы сохранить данные}

В ЭТОМ месте мне надо узнать, сохранились ли данные корректно или НЕКОРРЕКТНО
Для этого предпологаю дождаться пока прогрузится cтраничка TWEBBROWSER-а
Вопрос: Как мне вернуться в этом местото цикла после события TWebBrowser DownloadComplete?
Возможно есть какая то альтернатива?
...

end;

 
 FF('_contractDate',DateToStr(Date),WebBrowser1);
 BtnClick('_search',WebBrowser1); {Щелкаю на кнопку}
Как в ЭТОМ МЕСТЕ ПОДОЖДАТЬ ПОКА ПРОГРУЗИТЬСЯ WEBBROWSER?И только потом продолжать выполнение команд!  ShowMessage(WebBrowser1.OleObject.Document.all.tags('TABLE').Item(3).Rows.Item(0 ).Cells.Item(0).InnerText);
...
...
...

with WebBowser do
while Busy or (ReadyState<>READYSTATE_COMPLETE) do begin
 sleep(0);
 Application.ProcessMessages
end;

 FF('_docDateReceived','20.03.2002',WebBrowser1);
 FF('_comment',3232026818000318',WebBrowser1);
 FF('_contractDate',DateToStr(Date),WebBrowser1);
 BtnClick('_search',WebBrowser1);{ЩЕЛКАЮ НА КНОПКЕ}
 While WebBrowser1.Busy do {WebBrowser1.Busy=Flase}
 begin
   Sleep(0);
   Application.ProcessMessages;
 end;
 ShowMessage(WebBrowser1.OleObject.Document.all.tags('TABLE').Item(3).Rows.Item(0 ).Cells.Item(0).InnerText);

OnDownloadComplete

procedure TForm1.PngSpeedButton2Click(Sender: TObject);
begin
 FF('_phoneNumber',AdoQuery1.FieldByName('phone').AsString,WebBrowser1);
 FF('_salePointCode','555555',WebBrowser1);
 FF('_contactPhone','83473215010',WebBrowser1);
 FF('_lastName','Иванов',WebBrowser1);
 FF('_firstName','Иван',WebBrowser1);
 FF('_midName','Иванович',WebBrowser1);
 FF('_birthday','17.01.1970',WebBrowser1);
 FF('_sexTypes','1',WebBrowser1);
 FF('_docSeries','2222',WebBrowser1);
 FF('_docNumber','55555',WebBrowser1);
 FF('_docDateReceived','20.03.2002',WebBrowser1);
 FF('_contractDate',DateToStr(Date),WebBrowser1);

 BtnClick('_search',WebBrowser1);
{ТУТ WebBrowser1 еще не отправляет данные (почему то)}
While WebBrowser1.Busy or (WebBrowser1.ReadyState<>READYSTATE_COMPLETE) do begin
  sleep(0);
  Application.ProcessMessages;
 end;
 ShowMessage(WebBrowser1.OleObject.Document.all.tags('TABLE').Item(3).Rows.Item(0 ).Cells.Item(0).InnerText);
end;
{А ВОТ ТУТ НАЧИНАЕТ ОТПРАВКУ ДАННЫХ}