Число в Edit должно увеличиваться на 1 таймером

[DenSuper007x]

Создайте приложение, на форму которого помещены компоненты: Timer и Edit.Для компонента Timer обработайте событие OnTimer, которое увеличивает число, за-писанное в компоненте Edit, на единицу каждую секунду. Если в компонент Edit вве-дено не число, то таймер не работает.
Помогите решить, не знаю как, замучился уже

[Serge_Bliznykov]

вообще не вижу в чём проблемы...
кидаете на форму Timer и Edit
в таймере по умолчанию уже
стоит интервал 1000 мс (=1сек)
на событие таймера OnTimer пишите процедуру вида:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  EditNumber, ErrCode : integer;
begin
  val(Edit1.Text, EditNumber, ErrCode );
  if ErrCode=0 {значит в Edit1 число } then
      Edit1.Text := IntToStr(EditNumber + 1);
end;

всё.

[DenSuper007x]

Спасибо, очень благодарен