How to create a shaking window

TIPS :: Whether you want to shake your Delphi application forms just for fun or to attract a user attention it's up to you :)
Here's a simple code to shake a window provided a window's handle ...