Dato Nedtæller?

Hej...

Min klasse og jeg skal ud og rejse på fredag d. 17/10. Flyet afgår kl 14:35.
Så jeg kunne godt tænke mig at lave en nedtæller, som tæller ned fra man åbner programmet og til flyet afgår.
Nogen der ved hvordan man gør?

Jeg kan godt få den til at tælle dage ned, men jeg kunne også godt tænke mig at få den til at tælle timer, minutter og sekunder.

Den jeg bruger til at tælle dage med hedder:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label3.Caption:=FloatToStr(
    StrToDate(Edit1.Text)-StrToDate(Edit2.Text))+
      ' days between of this dates';
end;

Nogen der ved hvordan man kan lave resten?