How to apply visual effects in FireMonkey to TWebBrowser component?

Question

Delphi

Good day.
Please tell me how to make visual effects work in TWebBrowser.
The effect is not applied.
Found a way out through:
Image.Bitmap := TWebBrowser.MakeScreenshot;
And, then apply the effect to the Image.
But, if I throw it into a thread or into a timer, then MakeScreenshot causes a memory leak, which I also can’t overcome in any way. More precisely, the PaintTo function of any visual component placed in a loop causes a memory leak.