Ejecutar evento OnClick repetidas veces manteniendo presionado el botón

[[mlara]]

Quizá el tema haya sido tratado, si es así me disculpo.

Lo que necesito en este momento es reproducir el efecto de los botones de un DBNavigator. En este componente si yo mantengo presionado el botón 'Next', se hacen sucesivos 'Next' sobre el conjunto de datos, hasta que yo suelte el botón. Cómo puedo hacer esto con un botón normal? Cómo ejecuto repetidamente el evento OnClick hasta que suelte el botón?

[keyboy]

Esos botones son de tipo TNavButton y puedes estudiar su funcionamiento en el código de la unidad DBCtrls. Básicamente el botón echa a andar un Timer (que crea al vuelo) en el evento OnMouseDown y lo detiene en el OnMouseUp. En el evento OnTimer del Timer ejecuta el método Click del botón. La propiedad Interval del Timer indicaría entonces la velocidad de repetición.

Bye

[[mlara]]

De verdad había pensado en usar un Timer, pero quería estar seguro de cómo lo hacían en CodeGear... je je.

Con esto es suficiente, gracias.