[icWasya]

Как - нибудь так

Код:

TForm1=Class(TForm)
....
   private
      T :Integer;
...
implementation


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

procedure TForm1.Timer1Timer(Sender:TObject);
var
  varh,m,s:integer; 
begin
  Dec(T);
  h:=t div 3600; 
  m:=(t mod 3600) div 60; 
  s:=(t mod 3600) mod 60;
  Label1.Caption := Format('%.2d:%.2d:%.2d',[h,m,s]);
  if (T<=0) then begin 
     Timer1.Enabled:=False;
     // тут вставить код, который делает что-нибудь полезное
  end;
end;