[incansable]

Hola amigo te envio algo de codigo para tratar los query desde codigo
a mi me funciona bien pasandole paramtros

Código Delphi [-]
  procedure Mquey2(DtoEdit:array of string;opc,opc1: integer); //controla todo el query1
   begin
         DataModule2.Query2.CLOSE;DataModule2.Query2.SQL.Clear;
  DataModule2.query2.sql.add('SELECT CODCLI, NOMECLI, NIF, DIRECCION, POBLACION,
  PROVINCIA, TF_FAX, TF_1, TF_MV, OFERTA, T_PRECIO1, T_PRECIO2, T_DTO1, ULTCOMPRA, LIMT_RIESG');
         DataModule2.query2.sql.add('FROM "CLIENT.DBF" Client');
       Case Opc Of
         1: begin
             Case Opc1 Of
                1: begin //ordenado por codigo
                    DataModule2.query2.sql.add('WHERE (CODCLI = :CODCLI)');
                    DataModule2.Query2.Params[0].AsString := DtoEdit[0];//dato a buscar completo
                    DataModule2.query2.sql.add('ORDER BY CODCLI') ;
                   end;
                2: begin
                    DataModule2.query2.sql.add('WHERE  NOMECLI LIKE  :NOMECLI '); //dato a buscar parcial
                    DataModule2.Query2.Params[0].AsString:= (DtoEdit[0] + '%') ;
                    DataModule2.query2.sql.add('ORDER BY NOMECLI') ;
                   end;
             end;
                    DataModule2.Query2.open;
            end;
       end;
   end;

saludos