Таймер обратного отсчета

[Bilargo]

В общем ситуация, я пишу таймер обратного отсчета минут и секунд, проблема заключается в выводе этого таймера после задачи данных переменных.

var
  Form1: TForm1;
  Min, cek :Integer;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  Min:=StrToInt(edt1.Text);
  Cek:=StrToInt(edt2.Text);
  tmr1.Enabled:=True;
end;


procedure TForm1.tmr1Timer(Sender: TObject);
begin
 lbl3.Caption:=IntToStr(min)+':'+IntTOstr(cek); // вот это поле предполагается для вывода счетчика, оно в форме растянуто над остальными компонентами. Значение в нем Visible=False.
 cek:=cek-1;
 if cek=0 then
 min:=min-1;
 cek:=60;
 if min=0 then
 cek:=60;
 if cek=0 then
  begin
   tmr1.Enabled:=False;
   ShowMessage('Отсчет окончен');
   end;
end;

[Stilet]

Предлагаю свой вариант таймера с обратным отсчетом.
До секунд.

unit Unit1;

interface

uses           dateutils,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var     dt:TTime;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 dt:=EncodeTime(0,StrToIntDef(Edit1.Text,0),StrToIntDef(Edit2.Text,0),0);
 Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 caption:=FormatDateTime('nn:ss',dt);
 dt:=IncSecond(dt,-1);
 if dt=0 then
  TTimer(sender).Enabled:=false;
end;

end.

[Bilargo]

Выдает вот здесь ошибку:

dt:=IncSecond(dt,-1);
[Error] Unit1.pas(44): Undeclared identifier: 'IncSecond'

[ОДИНОЧЕСТВО В СЕТИ]

а по поводу ошибки DateUtils пропишите в Uses
вот вам 3 вида таймера

[Bilargo]

Мммм....нет! Всё в норме, забыл Uses переписать, но счетчик он всё равно не выдает почему-то...

[Serge_Bliznykov]

function IncSecond(ATime: TDateTime; Seconds : Integer): TDateTime;
begin
  Result := ATime +  ( Seconds * 1000  / MSecsPerDay);
  if Result < 0 then
    Result := Result + 1;
end;

p.s. DateUtils в Delphi5 не было ещё.. поэтому привожу код...

[Bilargo]

Спасибо всем Вроде разобрался)))