请教，程序运行时提示这样错误？

procedure Tcxfrm.SpeedButton3Click(Sender: TObject);
begin
  dm1.Query4.Open;
    with dm1 do
    begin
      query4.Close;
      query4.SQL.Clear;
      query4.SQL.Add('delete from grfsdzh');
      query4.ExecSQL;      query4.Close;
      query4.SQL.Clear;
      query4.SQL.Add('insert into grfsdzh (NAME,FW,FH,A3,WXF,WSF,C3,C4,B3,B4,HJ,JS)');
      query4.SQL.Add(' select NAME,FW,FH,sum(A3),sum(WXF),sum(WSF),sum(C3),sum(C4),sum(B3),sum(B4),sum(HJ),JS from fsdzh');
      query4.SQL.Add('group by JS,NAME,FW,FH');
      query4.ExecSQL;
    end;
end;这是一段源码，我设置了断点追踪了一下，当运行到最后一条语句也就是query4.ExecSQL的时候提示如下错误信息：
Project wy.exe raised exception class EDBEngineError with message 'Type mismatch in expression.'. Process stopped.Use Step or Run to continue.
请问：这是为什么，应该如何解决？
我很着急。