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;