How do I change the cursor to hourglass ?

[Constantin Teodorescu]

Inside a vtcl program I call a user defined function that performs some
tasks maybe 10 seconds or more. I want to show to the user that
something is working there.

How can I change the cursor to hourglass before entering the function
and back again to arrow on exit ?

Let's say, like in Visual Basic :

"Screen.MousePointer = 11" (hourglass)

Thanks in advance,
Constantin Teodorescu
FLEX Consulting Braila
E-mail : [EMAIL PROTECTED]