삭제를 위한 암호를 넣어 주세요

// 다음과 같이 할 수도.....
procedure TForm1.Button1Click(Sender: TObject);
var
    secs: Integer;
begin
   secs := 4600;
   Edit1.Text := FormatDateTime('h시간n분s초', secs / secsPerDay);
end; 
2017-11-06 오후 1:15:43