Время из Edit

[Shouldercannon]

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

var
  Form1: TForm1;
  C: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
C:=7;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(C);
Label1.Caption:='Автопереподключение через '+intToStr(C)+' сек.';
Application.ProcessMessages;
if C=0 then begin
Timer1.Enabled:=False;
C:=7;
Label1.Caption:='';
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

[mihali4]

Так... Ну а где
Timer1.Interval=C*1000; ?

[Arigato]

Так?

C := StrToInt (Edit1.Text);

[Shouldercannon]

Всё спасибо работает