초를 0시간 0분 0초식으로 리턴

출처: http://www.delmadang.com/community/bbs_view.asp?bbsNo=3&bbsCat=0&indx=454205&page=1

 
procedure TForm1.Button1Click(Sender: TObject);
var
    secs: Integer;
begin
   secs := 4600;
   Edit1.Text := FormatDateTime('h시간n분s초', secs / secsPerDay);
end;