Blinking Text Cursor for TextOut Routine--How?

Hi,

I want to write a  function that will allow the user to select an area
of a canvas to output some text. I would like to have a flashing cursor
to indicate the location on the canvas where the text will be output
(like in a wordprocessor).

Does anyone know how to implement such a cursor on a canvas?
Alternatively, could someone point me to an example?

TIA
Brett Miller

--
"Shoot low, they're riding Shetland ponies!"
                                                  --Lewis Grizzard