Crear un temporizador para botón

[UsuarioBaja123]

Hola, gracias a todos los del Club Delphi que resuelven mis dudas. Bueno, al grano:

Necesito crear un temporizador que se active cuando pulse un botón y me cuente cuantos segundos estoy pulsando el botón hasta que lo suelte y me lo guarde en una variable con el tiempo que he estado pulsándolo. (no tiene por qué ser segundos)

Gracias a todos los que me contesten.

[Casimiro Notevi]

¿Qué parte llevas hecha?
¿En qué parte tienes problemas?
¿Cuántos puntos te dan por el ejercicio?

[UsuarioBaja123]

Nada, ya encontré yo solo la manera de hacerlo. ¿Si quiero compartirlo lo escribo aquí o lo pongo en trucos?

[Casimiro Notevi]

Aquí, por favor

[UsuarioBaja123]

Pues sencillamente añades un TTimer y una variable:

Código Delphi [-]
var
valueduration : integer;
begin
valueduration := valueduration +1
end;

De esta manera cada vez que en el Timer pasen los 1000 (1 seg.) se sumara a la variable 1.

Mi problema es que no se hacer una función cuando el botón está o no pulsado:

Código Delphi [-]
var
valueduration : integer;
begin
if Button1.OnClick true
then begin
valueduration := valueduration +1
end;
if Button1.OnClick false
then begin
Text1.Text := valueduration;
end;

¿Qué estoy haciendo mal?

Gracias.

[Casimiro Notevi]

Decías que querías controlar cuánto tiempo está pulsado el botón, ¿eso quiere decir que cuente el tiempo que lo pulsas hasta que lo sueltas? ¿o quieres decir el tiempo entre que lo pulsas una vez y lo vuelves a pulsar otra vez?