Problem mit meiner Zeitberechnung

[Akut-Programming]

Also, ich will sone Art Counter proggn. Dazu will ich die Anzahl der Stunden bis zur eingebenen Zeit berechnen und runter zählen lassen. Ich hab n Beispiel für´ne Berechnung in der DP gefunden, nur leider zählt er hoch und nich runter..

Delphi-Quellcode:

procedure Tfrm_main.Timer1Timer(Sender: TObject);
  Var
     time1,time2:TTime;
begin
  time1:=strtotime(ed_man_zeit.Text);
  time2:=time1+now;
  lbl_countdown.Caption:=timetostr(time2);
end;

Könnte mir da jemand helfen, wie ich den Timer nun runterzählen lassen kann?!


Gruß,