procedure TForm1.Chromium1BeforeResourceLoad(Sender: TObject;
  const browser: ICefBrowser; const request: ICefRequest;
  var redirectUrl: ustring; var resourceStream: ICefStreamReader;
  const response: ICefResponse; loadFlags: Integer; out Result: Boolean);
var
  MemoryStream: TMemoryStream;
begin
  MemoryStream := TMemoryStream.Create;
  try
    HTTP.Get(request.Url, MemoryStream);
    resourceStream := TCefStreamReaderRef.CreateForStream(MemoryStream);
    Result := True;
  finally
    MemoryStream.Free;
  end;
end;