[FMX] scrolling

Hello,

I have the following script on a button:
[AS]
on (press, release, keyPress “<Down>”) {
currentScroll = newsBox.scroll;
if (Number(currentScroll)<Number(newsBox.maxscroll)) {
newsBox.scroll = Number(currentScroll)+1;
}
}
[/AS]

Which quite obviously causes the text box to scroll. How can I make so if you press and hold it continues to scroll? As it stands you have to click click click to make it scroll further.

And on a side note, how would I make it scroll when you rollover (and continue to scroll as long as your mouse is over it)