Interval in sekunden

[SaFu]

ne nicht so richtig

habe dieses problem will mit zwei buttons die zeit des intervals des timers verkürzen und die zeit des Timerintervals im label ausgeben lassen

Delphi-Quellcode:

//===Timer3 interval erhöhen====================================================
procedure TForm5.Button10Click(Sender: TObject);
begin
 n:=n+100;
 Timer3.Interval:= n; //Wert "n" übergeben
 Label3.Caption:= IntToStr(Timer3.Interval div 1000)+' Sekunden';
 Label3.Update; // Label aktualisieren
end;

//===Timer2 Intervall verkürzen==================================================
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 div 1000)+' Sekunden';

      Label3.Update; // Label aktualisieren
    end
  else
   MessageDlgPos('Minimum erreicht!',mtInformation,[mbOk],0,260,200);
end;

hab es jetzt so oder ist das nicht richtig so