方法一：

function GetDateFormat():string;
var
  SysFrset: TFormatSettings;
begin
  Result:='';
  GetLocaleFormatSettings(GetUserDefaultLCID, SysFrset);
  Result:=SysFrset.DateSeparator;  //DateSeparator當前系統日期分隔符
end;


procedure TForm1.btn1Click(Sender: TObject);
var   
  Dat:TDateTime;
  Fr, Fm:string;//儲存日期格式的字串變數
  str: string;
begin  
  Fr:=GetDateFormat;//獲取當前系統日期分隔符
  Fm:= Format('yyyy%sMM%sdd hh:mm:ss',[Fr,Fr]);
  str:= FormatDateTime(Fm,Now);
  ShowMessage(str);
  Dat:=StrToDateTime(str);  //這樣始終都會跟當前系統日期分隔符同步，這樣不管你把當前系統日期分隔符設定為什麼樣都不會報錯
end;
 

方法二：

procedure TForm1.btn2Click(Sender: TObject);
var
  D:TDateTime;
  s:string;
begin
//  D:=VarToDateTime('05-10-14 04:35PM');
  D:=VarToDateTime('2018-03-13 12:12:12');
  S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D);
  showmessage(s);
end;

轉自：http://blog.csdn.net/xxkku521/article/details/25817137

http://blog.csdn.net/dydn120w/article/details/51118610