if (cad[i]='&')or (cad[i]='$') then
begin
//aux:=aux+' AND '+FechaReporte.Text+'>='''+FechaSQL(DateToStr(Inicial.Date))+''' and FEVEN_F<='''+FechaSQL(DateToStr(Final.Date))+''' ';
if (cad[i]='&') then
aux:=' '''+FechaSQL(DateToStr(Inicial.Date))+''' '
else
aux:=' '''+FechaSQL(DateToStr(Final.Date))+''' '