[Dem0Men]

Кидаешь Edit и процедуру

Код:

procedure TForm1.btn1Click(Sender: TObject);
begin
  Tmr1.Interval:= d; // интервал
 Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл
end;

меняем на

Код:

procedure TForm1.btn1Click(Sender: TObject);
begin
  d                 := StrToInt(Edit1.Text) * 1000; //Время в таймере в милисекундах, а мы переводим в секунды 
  Tmr1.Interval := d; // интервал
  Tmr1.Enabled := not(Tmr1.Enabled); // вкл / выкл
end;

Как-то так.
p.s.

а как незнаю в школе учили тока в паскале абс=)

, а я вообще не знаю что такое PascalABC и в школе его не учил))))