title: Scrolling text effect in Firemonkey
body: <p>There are moments that I need to present a message for the user and the length of the message is bigger than the space available.</p>
  
  <p>It does not matter which control to be used, I am looking for a way to know when the text is not fully visible and how to apply a scrolling effect (to be more precise scroll the text to the left slowly until all the hidden text is shown and repeat all over again forever). </p>
  
  <p>I am using Delphi XE7.1</p>