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;
  HTTP.Get(request.Url,MemoryStream);
  resourceStream := TCefStreamReaderRef.CreateForStream(MemoryStream);
  Result:=True;

  MemoryStream.Free;
end;