Dateformate 问题请教

客户的日期格式是:MM/dd/yyyy但我的字符串是 '2006-07-30'当用strtodatetime的时候报错说我的字符串是无效日期，
我如果把系统格式改成 yyyy-mm-dd就可以了
现在问题
我用
  Var
  strTmp: string
  begin
    ShortDateFormat := 'yyyy-mm-dd'; //此命令可以暂时修改系统格式
    strTmp := datetimetostr(now);
    Showmessage(strTmp);//显示 ‘2006-07-30 12:21:11.123’
    StrToDatetime(strTmp);//到这里还是报错
  end;//不允许把客户的日期格式永久改变，客户不答应大家有什么好的方法？