serverout将N秒转换为时分秒格式？

完全可以自己算啊
function TForm1.GetTime(t: integer): string;
var
a: string;
h, m, s: integer;
begin
h := t div 3600;
a := intToStr(h) + '小时';
i := t - h * 3600;
m := t div 60;
a := a + intToStr(m) + '分';
t := t - m *60;
s := t;
Result := a + intToStr(s) + '秒';
end;