Error filtrar DBgrid d_x7 y Firedac

[kia]

Hola. Estoy pasando una aplicacion en D6 a mi nuevo delphi XE7, uso base de datos Firebird y los nuevos componentes FireDAC.
Los datos el ddbgrid menus etc.. sin problema. Pero en el DBgrid empleo un filtro que me gustaria seguir utilizando por su comodidad, y me encuentro que no lo hace. La unica diferncia es que antes empleaba u Dataset y ahora un Query (Firedac).. diferncia en el lenguaje SQL quizas......?
Estoy cerrado...donde estoy fallando...Gracias. (este filtro no es mio me lo baje de una WEB y lo modifique).

Código Delphi [-]
  procedure  TV_Componentes.Filtrar(Sender: TObject);
 const
 TiposConComillas:set of TfieldType
 =[ftstring, ftdate, fttime,ftdatetime];
 var
 Campo, Operador, Valor, sino:string;
 I:integer;
begin
  sino:='';
  if sender= migual then
     operador:='='
   else if sender= mMayorigual then
     operador:='>='
   else if sender= mMenorigual then
     operador:='<='
   else
     operador:='<>';

  //extraemos nombre del campo
  Campo:=dbgrid_c.SelectedField.FieldName;
  //extraer y dar formato al valor
  if dbgrid_c.SelectedField.DataType in TiposconComillas then
     BEGIN
     if dbgrid_c.SelectedField.DataType=ftdate then //fechas
        begin
        valor:=dbgrid_c.SelectedField.AsString;
        if valor='' then //fecha en blanco
           dbgrid_c.SelectedField.IsNull
           else   //fecha no blanco
           valor:=QuotedStr(FormatDateTime('mm/dd/yyyy',strtodate(valor)));
        end else begin
        valor:=quotedstr(dbgrid_c.SelectedField.AsString); //string
        end;
     if dbgrid_c.SelectedField.IsNull then//campos nulos
           begin
           valor :='is null';  //string,fechas...
           if operador<>'=' then sino:='NOT ';
           operador:='';
           end;
     END ELSE BEGIN
     valor:=dbgrid_c.SelectedField.AsString ;
     for I := 1 to length(valor) do
       if valor[i]=DecimalSeparator then Valor[i]:='.';
     END ;
  if mActivarfiltro.Checked=false then  // 1º filtrado
     BEGIN
     with DMDatos.FDQscom do
       begin
       Close;
       SQL.Clear;
       SQL.Add('SELECT * FROM WSCOM');
       SQL.add('WHERE '+sino+ format('%s %s %s',[Campo,Operador,Valor]));
       SQL.Add('ORDER BY '+campo);
       Open;
       end;
     END ELSE BEGIN
     with DMDatos.FDQscom do  //2º filtrado y siguientes
       begin
       Close;
       //Averiguamos la posicion de la linea de Ordenamiento
       for I := SQL.Count -1 downto 0 do
       if pos('ORDER BY',uppercase(SQL[i])) <>0 then
       SQL.Delete(i);
       SQL.add ('AND '+sino+ format('%s %s %s',[Campo,Operador, Valor]));
       SQL.Add('ORDER BY '+Campo);
       //ShowMessage(DMDatos.Dsetequimae.SelectSQL.text); //monitor dataset
       ShowMessage(DMDatos.FDQequimae.SQL.text); //monitor query
       open;
       end;
     END;
  mactivarfiltro.Checked:=true;
  DMDatos.FDQscom.Last;
  DMDatos.FDQscom.First;
  end;