Interval in sekunden

[SaFu]

hi gibt es eine funktion das man sich die zeit des intervals in sekunden anstatt in milisekunden anzeigen lassen kann

Delphi-Quellcode:

procedure TForm5.Button9Click(Sender: TObject);
begin
 n:= n - 100;
 if Timer3.Interval > 0 then
    begin
      Timer3.Interval:= n;  //Wert "n" übergeben
      Label3.Caption:= IntToStr(Timer3.Interval)+' Millisekunden'; //Intervallanzeige
      Label3.Update; // Label aktualisieren
    end
  else
   MessageDlgPos('Minimum erreicht!',mtInformation,[mbOk],0,260,200);
end;

????