из палитры компонентов на вкладке стандарт выбери компонент TEdit и кинь куда нить на форму.
Вот немного модифицированный вариант нажатия на кнопке:
procedure TForm1.btn1Click(Sender: TObject);
begin
if d <> StrToInt(Edit1.Text) then
begin
d:= StrToInt(Edit1.Text)
Tmr1.Interval:= d; // интервал
Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл
end
else
begin
Tmr1.Interval:= d; // интервал
Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл
end;
end;
|