Duda con el intervalo del timer

[ecfisa]

Hola Darkmaster360.

A... entiendo, pero ya hay un componente que realiza esa tarea el TSpinEdit (Pestaña Samples).

Un ejemplo:

Código Delphi [-]
...
implementation

var
  Cont : Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpinEdit1.MinValue := 1;
  SpinEdit1.MaxValue := MaxInt;
  SpinEdit1.Value    := Timer1.Interval;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  Timer1.Interval := SpinEdit1.Value;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := IntToStr(Cont);
  Inc(Cont);
end;

Revisa en la ayuda de Delphi sobre las propiedades del componente SpinEdit.

Saludos.