將秒轉成天、小時、分、秒

procedure TForm1.FormCreate(Sender: TObject);
var
  DateTime:TDateTime;
  ASec:integer;
  Hour,Min,Sec,MSec:word;
begin
  ASec:=801;
  //Day:=ASec div 86400;//一天為86400秒
  DateTime:=IncSecond(DateTime,ASec);//轉成TDateTime型態
  DecodeTime(DateTime,Hour,Min,Sec,MSec);//解析成小時,分鐘,秒
  Caption:= IntToStr(Hour)+'小時'+IntToStr(Min)+'分鐘'+IntToStr(Sec)+'秒';
end;