¿Como sumar un valor de un edit y reflejar incremento en el mismo?

[The_Animal]

Estimados amigos de Club Delphi:

Les saludo con un feliz Navidad Atrasado y un prospero año nuevo. Escribo en este hilo por que quisiera que me ayuden con un problemilla que tengo programando en Delphi:

Quisiera crear una pequeña aplicación que funciona de la siguiente forma:

Tengo un edit, un timer y un botón de salir.

Lo que quiero que haga esta aplicación es representar una simulación de un incremento de un valor actual en función del tiempo. Por ejemplo:

Tengo el valor por defecto en el Edit1: 123456. El timer está programado para que cada 5 segundos, ocurra que haya un cambio en el valor actual, incrementándome este valor en 25. O sea:

Al inicio: 123456
Después de 5 Segundos: 123456+25

y así sucesivamente.

Espero que se entienda la idea, y bueno, quisiera que me ayuden.

Se agradece, y una vez más, felices fiestas para todos los usuarios y moderadores de ClubDelphi.

[dec]

Hola,

Hombre, en principio se trata de aprovechar el evento "OnTimer" del "TTimer" con unas instrucciones más o menos como estas:


// Esto iría dentro del evento "OnTimer"
var
i: integer;
begin
i := 0;
if TryStrToInt(Edit.Text, i) then
begin
i := i + 25;
end;
Edit.Text := IntToStr(i);
end;

[Caral]

Hola
En principio me quede pensando en una suma, pero con esto:
Al inicio: 123456
Después de 5 Segundos: 123456+25
Me parecio que se queria colocar el numero consecutivamente.
Puesto que no indico esto:
Al inicio: 123456
Después de 5 Segundos: 123456 + 25
Resultado: 123481
Bueno, por si acaso:

procedure TForm1.Timer1Timer(Sender: TObject);
var
numero: Integer;
begin
Numero:= 25;
Edit1.Text:= Edit1.Text + IntToStr(Numero);
end;

Saludos

[The_Animal]

Dec, Caral, agradezco que hayan contestado mi consulta. Lo estoy anotando y probaré ambas opciones en Delphi 7. Si llego a tener dudas, consultaré.

Una Vez más, Gracias y Felices fiestas.