правильно ли я нажимаю кнопку по таймеру?

[megostudent]

procedure TForm1.FormCreate(Sender: TObject);
begin
timer2.Enabled:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer2.Interval:=(strtoint(Edit1.Text)*1000);
timer2.Enabled:=true;
end;


procedure TForm1.Timer2Timer(Sender: TObject);
begin
button2.Click;
end;

не происходит клик по секундам которые я указываю в едите.

[KnoWabLe]

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Interval:=(strtoint(Edit1.Text)*1000);
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
button2.Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
end;

При таком коде и заданном числе 1 в edit, и при условии что в Object Inspector timer1:=false у меня каждую секунду открывает form2.

[megostudent]

а зачем вызывать 2 форму, если она мне не над?)

[Serge_Bliznykov]

megostudent
скажите, а Вы чётко представляте себе, ЧТО именно Вы написали?!

procedure TForm1.FormCreate(Sender: TObject);
begin
timer2.Enabled:=false;
при запуске формы выключить таймер2
end;

судя по названию, эта процедура назначена на нажите кнопки Button2
procedure TForm1.Button2Click(Sender: TObject);
begin
timer2.Interval:=(strtoint(Edit1.Text)*1000); установили интервал срабатывания таймера
timer2.Enabled:=true; запустили таймер
end;

когда прошёл заданный интервал, 
вызывается процедура, назначенная на таймер2
procedure TForm1.Timer2Timer(Sender: TObject);
begin
button2.Click; - вызываем процедуру, назначенную на клик на кнопку Button2 - 
т.е. процедуру Button2Click
а в ней мы задаём интервал и запускаем таймер2

end;

ЧТО ВЫ ОЖИДАЕТЕ УВИДЕТЬ?! Как "тикают" системные часы?
или как внутри проекта вызываются процедуры?!
Что, по вашему, должен сделать Ваш код? Его проявление какое? Чтобы кнопочка Button2 визуально сама "нажалась"?!
Так этого при вызове процедуры Button2Click не будет происходить...

ЧТО Вы хотели сделать?! Не мучьте меня! Раскройте тайну, пожалуйста!!!!

[megostudent]

да я напмсал что я хочу сделать в начале темы)
всего лишь нажимать на button2 с интервалом указаным в edit1)

[Serge_Bliznykov]

афигеть..
ну ясно. ну, значит, считайте, что Вы её "нажимаете"..
(по крайней мере, выполняете тот код, который назначен на нажатие этой клавиши).
Значит, задача решена.

[FaTaL]

Жесть Больше нет слов