How can I loadurl and wait chromium loadend?

[windblast]

I need to use CEF to access a series of URLs, and after CEF has completed the contents of a web url, I begin to process the content of the web page, then go to the next URL, but the problem is that I can't get CEF to complete the status of the URL content.

My code samples:

Code: Select all

procedure TForm1.btn2Click(Sender: TObject);
var i:Integer;
begin
  for i := 0 to lstChapter.Count-1 do
  begin
    Chromium1.LoadURL(lstChapter[i]);

    while Chromium1.IsLoading do
    begin
      Sleep(10);
      Application.ProcessMessages;
    end;

    Chromium1.Browser.MainFrame.GetSourceProc(onGetLessonProc);
  end;
end;


Thanks!