Originally shared by Maik Wojcieszak

Originally shared by Maik Wojcieszak

The example is using Lazarus, but it also works with RAD Studio/Delphi.
http://www.youtube.com/watch?v=570lBt3Xp8Y