таймер

[megostudent]

var
  Form1: TForm1;
      i:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=10;
timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i-1;
Label1.Caption:='осталось'+' '+ inttostr(i)+' '+'секунд';
if i=0 then
i:=10;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

end.

вот код по которому идет отчет времени от 10 и заново. как сделать чтобы i которому я присваиваю 10 бралось с едита, то есть ввел в едит 5 пошел отчет с 5, ввел 30 пошел с 30?
пробовал :

var
  Form1: TForm1;
      i:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=strtoint(edit1.text);
timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i-1;
Label1.Caption:='осталось'+' '+ inttostr(i)+' '+'секунд';
if i=0 then
i:=strtoint(edit1.text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

end.

выбивает ошибку.
подскажите...

[_-Re@l-_]

Вот так..

procedure Button1Click(Sender : TObject);
begin
        i:=StrToInt(Edit1.Text);
        Timer1.Enabled:=True;
end;

procedure Timer1Timer(Sender : TObject);
begin
        Label1.Caption:='Осталось '+IntToStr(i)+' секунд';
        Dec(i);
        if i = -1 then Timer1.Enabled:=False;
end;

И в дизайнере объектов задайте у таймера свойство Enabled равным False, а интервал - 1000.

[megostudent]

так мне нужно чтобы таймер не останавливался, а начинал отчет заново

что за привычка сначало отписывать а потом пробовать код менять, все получилось спасибо

а вот еще такой вопрос назрел
timer1.Interval:=strtoint(Edit1.Tex t);
когда я указываю интервал в едит я его должен указывать в милисекундах (10000=10сек), а как сделать что бы задавать не милисекунды а секунды?

[volod3000]

Делайте простое умножение на 1000 -> это 1'

[megostudent]

точно! )))