Pulsar botón y que cambien los números

[ciscu]

Hola a todos!!!

Me gustaría hacer que cuando pulsara y botón y lo manteniera apretado, el valor del TEdit cambiase automáticamente, es decir, ahora lo tengo así:

procedure button1Click;
begin
editx.text:=inttostr(strtoint(editx.text)+1;
end;

Claro, esto cambia el valor cada vez que pulso el botón, pero me gustaría que manteniendo apretado el botón tales valores cambiasen.

Me podéis indicar como hacerlo?

Gracias anticipadas.

[__cadetill]

por qué no miras de usar un TSpinEdit o un TEdit + un TSpinButton ??

[ciscu]

Gracias, la verdad es que no sabía que existiera tales componentes en las paletas de delphi.