Delphi Android - how take screenshot of entire screen programmatically?

Question

I need the code that allowed my to take screenshots programmatically in Delphi. Here is the sulotion:

How to programmatically take a screenshot on Android?

How