请教怎么把长整数转化成时分秒形式的时间长度

请问如何把长整数转化成时分秒形式的时间长度？
如何把一个长整数转成形如 220:53:40 这种形式的。。有现成的函数吗？

------解决方案--------------------
uses上dateutils单元

var
d: double;
t: TTime;
begin
d:= 61;
t:= d/SecsPerDay;
text:= TimeTostr(t);
end;