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.