cronometro hacia atras

[[kurono]]

hola amigos como estan les cuento que e hecho un cronometro en delphi 7 y funciona perfectamente pero ahora me gustaria hacer que ese cronometro me corra hacia atras osea que comiense en un tiempo determinado y concluya en cero por ejemplo que comiense en un 1minuto y termine en 0 aqui le muestro el codigo q he hecho

Código Delphi [-]
var
  Form1: TForm1;
  HoraInicial: TDateTime;

procedure TForm1.Button1Click(Sender: TObject);
begin
  HoraInicial := Now;
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption :=TimeToStr(Now - HoraInicial);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

end.