strtodate（‘2020-12-26’） 服务程序报错，is validate date
放在普通程序下运行，不报错
本地时间格式有调整为YYYY-MM-DD，实在不了解为什么

var
fs:TFormatSettings;
begin
fs := TFormatSettings.Create();
fs.DateSeparator := '-';
ShowMessage(FormatDateTime('YYYY-MM-DD',StrToDate('2020-12-26', fs)));
end;
试试这样做；

试了一下，果然服务程序日期只认 2020/12/26 ， 不认‘2020-12-26’，不管系统日期格式改成什么。
百度方法，不管是服务程序还是普通桌面程序都妥妥的，也不用改格式
function GetDateFormat():string;
var
SysFrset: TFormatSettings;
begin
Result:='';
GetLocaleFormatSettings(GetUserDefaultLCID, SysFrset);
Result:=SysFrset.DateSeparator;
end;
var Fr:string;
Fr:=GetDateFormat();
StrToDate(Format('2020%s12%s26',[Fr,Fr]));