Zeitdifferenz als Prozent darstellen

[Chris P]

Hab das jetzt so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  start := Now();
  stop := getTimeRemaining(0, 0, 15);

  len := stop - start;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin 
  Label4.Caption := FloatToStr(( stop - now()) / len * 100);
end;

Bleibt nur das Problem das von 100% runter gezählt wird statt hoch.

Dann muss ich schreiben:
Label4.Caption := FloatToStr(( 1- stop - now()) / len * 100); Gibts einen anderen Weg?