StrToDate要注意短日期時間格式

var
t:TDateTime;
fs:TFormatSettings;
begin
fs.ShortDateFormat:='yyyy-mm-dd';
fs.DateSeparator:='-'; //這一行一定要有
t := StrToDate('2010-01-01',fs);