[Casimiro Noteví]

Hores  :=  StrToInt(FloatToStr(K)) div 3600;

Así, a simple vista, me parece que estás dividiendo un string entre 3600.
Cambia el paréntesis del final

Hores  :=  StrToInt(FloatToStr(K div 3600));