给你个秒转换的函数，参数乘以60即可。
function SecToTime(value: Integer): string;
var
ihour, imin, isec: Integer;
begin
ihour := value div 3600;
imin := (value mod 3600) div 60;
isec := (value mod 3600) mod 60;
Result := Format('%d:%.2d:%.2d', [ihour, imin, isec]);
end;
