Ex:
//設定日期時間格式不受系統變化影響
Application.UpdateFormatSettings := False;
var fmt :TFormatSettings ; //建議設成全域變數，日期格式才能全面性
dtDate:TDateTime;
fmt.ShortDateFormat := 'MM/DD/YY';
fmt.DateSeparator := '/';
fmt.ShortTimeFormat := 'hh:nn:ss';
fmt.TimeSeparator := ':';
fmt.DecimalSeparator := '.';
dtDate := StrToDateTime('06/10/18', fmt );