brauche bishen hilfe damit die zeit im Edit runter leuft

[MisterX]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject); 
begin 
Close; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
Timer1.Interval:=StrtoInt(Edit2.text)*60000; 
ShellExecute(Application.MainForm.Handle, nil, PChar( Edit1.Text),nil,nil, SW_SHOWMAXIMIZED); 

end; 

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

procedure TForm1.Button2Click(Sender: TObject); 
begin 
Timer1.Enabled:=False; 
Timer2.Enabled:=False; 
end; 

procedure TForm1.Timer2Timer(Sender: TObject); 
begin 
winexec('shutdown.exe -s' ,1); 
end; 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
if Sender = Button1 then             
     AboutBox.Caption := 'Info über ' + Application.Title          
else AboutBox.Caption := '';             
AboutBox.ShowModal; 

end; 

end.

und das ist meiner