Duda con el intervalo del timer

[ecfisa]

Hola darkmaster360.

Por favor, cuando dudes en que foro debe ir tu mensaje no utilices Delphi/web utiliza el foro Varios, luego algún moderador se encargará de direccionarlo donde corresponda, muchas gracias.

Código Delphi [-]
...
implementation

const
   INCREMENTO = 100; // aquí el valor que quieras darle al incremento

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  ti: Integer;
begin
  ti := Timer1.Interval;
  with Timer1 do
    case Key of
      VK_UP  : if ti < MaxInt then Inc(ti, INCREMENTO);
      VK_DOWN: if ti-INCREMENTO > 0 then Dec(ti, INCREMENTO);
    end;
  Timer1.Interval := ti;
end;
...

Saludos.