//Sample_FormatDateTime1
var
  S: String;
begin

  //現在の日時を取得
  S := FormatDateTime( 'yyyy/mm/dd hh:nn:ss', Now );

  InputStr( S );

end.