Chromium Embedded, проверка на окончание загрузки страницы

procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean);
begin
  //
  if (frame <> nil) and frame.IsMain then
  begin
    // либо взводишь какой-то флажок, а там, где вызывал Chromium1.Load
    // дожидаешься в цикле, пока флажок будет взведен, либо делаешь то, что необходимо прямо здесь,
    // либо вызываешь какой-то метод, который будет делать то, что нужно
  end;
end;

 Chromium1.Load('https://www.cyberforum.ru/');
 Memo2.Text:= IdHTTP1.Get('https://www.cyberforum.ru/');

procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean);
begin
  //
  if (frame <> nil) and frame.IsMain then
  begin
    Memo1.Lines.Text := frame.Source;
    isLoaded := True; // Признак окончания загрузки страницы
  end;
end;

Memo2.Lines.Text := frame.Source;

var CookieManager: ICefCookieManager;
     CookiesPath : String; 
begin
 CookiesPath := ExtractFilePath(Application.ExeName) + 'Cookie\User1'; 
CookieManager := TCefCookieManagerRef.GetGlobalManager;
 CookieManager.SetStoragePath(CookiesPath);
 Chromium1.Load('сайт');