Timer1 Interval değerindeki sayıdan Örnek: 30000 bin ise 30 olarak veya 40000 bin ise 40 olarak matematik işlemleri yaptım

procedure TForm1.Button1Click(Sender: TObject);
begin
Kalan.Caption := FloatToStr(Timer1.Interval - 1000);
end;
Kod: Tümünü seç
Kalan.Caption := FloatToStr(Timer1.Interval / 1000);