Пишу прогу Таймер. Пмогите пожалуйста разобраться

 
// Нажатие кнопки Пуск
procedure TForm7.Button1Click(Sender: TObject);
begin
 if (edit1.Text='0') and (edit2.Text='0') then begin
  showmessage('Задайте время!');
  exit;
 end
 else begin
 dt:=EncodeTime(0,StrToIntDef(Edit1.Text,0),StrToIntDef(Edit3.Text,0),StrToIntDef(Edit2.Text,0));
 Timer1.Enabled:=true;
 end;
end;
 
// Нажатие кнопки Сброс
procedure TForm7.Button2Click(Sender: TObject);
begin
   Timer1.Enabled := false;
dt:=0;
label16.Caption:='час:мин:сек';
edit1.text:='0';
edit2.text:='0';
edit3.text:='0';
end;
 
 
// Событие работы таймера
procedure TForm7.Timer1Timer(Sender: TObject);
begin
label16.caption:=FormatDateTime('hh:nn:ss',dt);
 dt:=IncSecond(dt,-1);
 if dt=0 then
 begin
  TTimer(sender).Enabled:=false;
  showmessage('Заданное время вышло!');
 end;
end;

label16.caption:=FormatDateTime('hh:mm:ss',dt);

 dt:=EncodeTime(StrToIntDef(edhour.Text,0),StrToIntDef(edmin.Text,0),StrToIntDef(edsec.Text,0), 0);

 dt:=EncodeTime(0,StrToIntDef(edhour.Text,0),StrToIntDef(edmin.Text,0),StrToIntDef(edsec.Text,0));