procedure TForm1.BeforeResourceLoad(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
  if Request.Url = 'https://www.gravatar.com/avatar/d6b3f1a4100f56e3e3c0874c82141ff6?s=128&d=identicon&r=PG' then
  begin
    MemoryStream := TMemoryStream.Create;
    try
      HTTP.Get('http://1.bp.blogspot.com/-Qi3rbrQZBHY/T_5a7uwh-qI/AAAAAAAAAtg/OKzYkX3SazI/s1600/smiley-time.png', MemoryStream);
      ResourceStream := TCefStreamReaderRef.CreateForData(MemoryStream.Memory, MemoryStream.Size);
      Result := False;
    finally
      MemoryStream.Free;
    end;
  end
  else
    Result := False;
end;