procedure TFrmFrameBarraPesquisa.Pesquisa(qtdRegistros: Integer; nomeCampo, strPesquisa, strTabela, strTipoCliente: string; qry: TFDQuery);
var
  Operador: String;
  Coringa: string;
begin
  Coringa := '';

  case cbbOperador.ItemIndex of
    0:
      begin
        Operador := 'LIKE'; // Igual
        Coringa  := '%';
      end;
    1:
      Operador := '<>'; // Diferente
    2:
      Operador := '>'; // Maior
    3:
      Operador := '<'; // Menor
  end;

  try
    qry.close;
    qry.SQL.Clear;

    if qtdRegistros > 0 then
      qry.SQL.Add('SELECT FIRST ' + IntToStr(qtdRegistros) + ' *')
    else
      qry.SQL.Add('SELECT *');

    qry.SQL.Add('FROM ' + strTabela);
    qry.SQL.Add('WHERE');
    qry.SQL.Add(nomeCampo + ' ' + Operador + ' ' + QuotedStr(strPesquisa + Coringa));

    if strTipoCliente = '' then
      qry.SQL.Add('AND EMPRESA = ' + IntToStr(FParametros.Empresa.Codigo));

    if strTipoCliente = 'F' then
    begin
      qry.SQL.Add('AND CLASSIFICACAO =' + QuotedStr('F'));
      qry.SQL.Add('AND TIPO =' + QuotedStr('CLIENTE'));
    end;

    if strTipoCliente = 'J' then
    begin
      qry.SQL.Add('AND CLASSIFICACAO =' + QuotedStr('J'));
      qry.SQL.Add('AND TIPO =' + QuotedStr('CLIENTE'));
    end;

    if strTipoCliente = 'FORNECEDOR' then
      qry.SQL.Add('AND TIPO =' + QuotedStr('FORNECEDOR'));

    if strTipoCliente = 'VENDEDOR' then
      qry.SQL.Add('AND TIPO =' + QuotedStr('VENDEDOR'));

    case cbbExibirInativos.ItemIndex of
      0:
        qry.SQL.Add('AND ATIVO = ' + QuotedStr('S'));
      1:
        qry.SQL.Add('AND ATIVO = ' + QuotedStr('N'));
    end;

    if qtdRegistros = -1 then
      qry.SQL.Add('AND CODIGO = ' + QuotedStr('-1'));

    qry.SQL.Add('ORDER BY ' + nomeCampo + ' ASC');
    qry.Open();


  Except
    raise Exception.Create('Sua pesquisa não atende os parametros');
  end;
end;