procedure TMsgThread.Execute;
var
  msg: TMsg;

begin
  while not Terminated do begin
    if PeekMessage(msg, 0, 0, 0, PM_REMOVE) then begin
      case msg.message of
         WM_USER: Synchronize(Answer);
      end;
    end;
  end;
end;

  s := UTF8ToString(request.Url);

// вылавливаем нужный URL
  if s.ToLowerInvariant.Contains(fResponsePath.ToLowerInvariant) then
    DownloadRequestDataStart(s);

type
  TDlThreadXXXXX = class(TDlThread)
  private
    Parser: TParseXXXXX;

  public
    procedure Execute; override;
  end;
  
...
...
...

procedure TDlThreadXXXXX.Execute;
begin

//создать объект класса парсера  
  Parser := TParseXXXXX.Create(proxy, ProfId);

  try
    self.ParserAd           := Parser;
    Parser.OnProgress       := OnSiteParseProgress;

    Parser.ProfileID        := ProfId;
    Parser.StartURL         := StartUrl;

    synchronize(GetfmMainCaption);

    try
        Synchronize(ShowBaloonStartProcess);// уведомление
		
// старт парсинга
        if not Parser.DownloadInProcess then
          Parser.DoParse;

        Synchronize(ShowBaloonEndProcess);// уведомление

    except
      on e:exception do
        raise;

    end;// try except

  finally

    if assigned(Parser) then
    begin
      Parser.Free;
      Parser := nil;
    end;

    if Assigned(dltXXXXX) then
    dltXXXXX := nil;
  end;//try finally
end;

function TChrom.GetInnerHTMLPage(const url: string): string;
begin
  if fParseAD.MyProgressMsg.Stop then exit;

// обнуляем переменные
  bIsLoadingPage := True;// указываем, что страница грузится, см. ChromiumProcessMessageReceived()
  sInnerHTMLPage := '';
  iFinishedHTMLCount := 0;

// старт процесса загрузки и рендеринга, ответ ждать в ChromiumProcessMessageReceived()
  CefGetUrl(Chromium, url, fParseAD.ProfileName);

// ждём, пока грузится страница в процессе рендеринга
  while bIsLoadingPage do
  begin
    Sleep(3000);

    if fParseAD.MyProgressMsg.Stop then
      break;//выходим из цикла

  end;

  result := sInnerHTMLPage;
end;

Chromium.WasHidden(True);

  if Chromium.Initialized then
  begin
    Chromium.WasHidden(True);
    Chromium.LoadURL(url);
  end
  else
  begin
    Chromium.CreateBrowser(nil);
    Chromium.WasHidden(True);
    Chromium.LoadURL(url);
  end;