求助如何设置动态得到多层关联的SQL数据并计算平均值

专家： 我想计算S根据时间和TYPE选择出的SQL数据的平均值并显示出来。
见下面，我在不用'Edit1.Text:=LP_TYPE.TYP_DESC,这个条件时，程序可以，但是加上这个就不行了，是不是我写的不对啊？ 能否帮忙看看，非常感谢。begin
  StartDate := DateToStr(DateTimePicker1.Date)+' 00:00:00';
  EndDate := DateToStr(DateTimePicker2.Date)+' 23:59:59'; SQLStr :='SELECT CONVERT(VARCHAR(30), VPE.DATUMUHRZEIT,111) AS DATE, LP_TYPE.TYP_DESC,AVG(LP_DATA.lichtstrom) AS AVG_LUMEN '+
         ' FROM LP_DATA INNER JOIN VPE ON LP_DATA.ID_VPE=VPE.ID_VPE '+
         ' INNER JOIN LP_TYPE ON LP_DATA.ID_TYP=LP_TYPE.ID_TYP '+
         ' WHERE VPE.DATUMUHRZEIT BETWEEN '+QuotedStr(StartDate)+
        ' and '+ QuotedStr(EndDate) +'Edit1.Text:=LP_TYPE.TYP_DESC,'+
         ' CONVERT(VARCHAR(30),VPE.DATUMUHRZEIT,111)';  ADODataSet1.Active := False;
  ADODataSet1.CommandText := SQLStr;
  ADODataSet1.Active := True;
end;