Passando uma string em tempo de execucao para a sql

dmconsulta.QconsultaConsumomedio.SQL.Add(´ ((select sum(qtde) from mt_movimentacao where (tipo=´E´ or tipo=´D´) and (dataref >= :pdatainicial2 and dataref <= :pdatafinal2) ´);

Estou fazendo esta sql em tempo de execucao mas a seguinte msg de erro esta sendo retornada invalid column ´E´, n sei o que pode estar errado.... no firebird sempre passava uma string entre aspas duplas.