[dec]

Hola,

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

Código Delphi [-]
// 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;