Delphi. Код для таймера при 10 часах выдаёт фигню :с

Код:

h:=t div 3600;
m:=(t-(h*3600))div 60;
s:=(t-(h*3600+(m*60)));
Label1.Caption:=FormatFloat('000',d)+':'+FormatFloat('00',h)+':'+FormatFloat('00',m)+':'+FormatFloat('00',s);

Когда t становится равной 36000 (и больше), что эквивалентно 10 часам, m и s почему то становятся отрицательными. Помогите решить эту проблему