Query4.Close;
 Query4.SQL.Clear;
 sqlStr2 := 'Select Count(*) From oa_fw_data t where to_char(SCRQ,'+''''+'yyyy-MM-dd'+''''+')=<a and where to_char(SCRQ,'+''''+'yyyy-MM-dd'+''''+')>=b';
 Query4.SQL.Add(sqlStr2);
 Query4.ParamByName('a').Value:=DateToStr(Date());
 Query4.ParamByName('b').Value:=DateToStr(StartOfTheWeek());
 Query4.Open;
报错 Query4.ParamByName('b').Value:=DateToStr(StartOfTheWeek());