Tienes un error en la consulta, no estas cerrando el ultimo parentesis. También te recomiendo que uses QuotedStr para pasar las fechas.
Algo así
Código Delphi
[-]
consulta:= 'select * from almacen where (nro_ticket = '+ ECodigo.Text+
') AND (fecha_presentacion between '+QuotedStr(desde.text)+
' AND '+QuotedStr(hasta.text)+')';
Salud OS.