usar join... sim ou não.

    dmContaPagar.qryContaPagar.Close;
    dmContaPagar.qryContaPagar.Sql.Clear;
    dmContaPagar.qryContaPagar.Sql.Add(´select ctp.*, form.nome´);
    dmContaPagar.qryContaPagar.Sql.Add(´from contapagar ctp, fornecedor form´);
    if Trim(edtFornecedor.Text) = ´´ then
      dmContaPagar.qryContaPagar.Sql.Add(´where ctp.id_fornecedor is not null´)
    else
    begin
      dmContaPagar.qryContaPagar.Sql.Add(´where upper(form.nome) Like :nome´);
      dmContaPagar.qryContaPagar.ParamByName(´nome´).AsString := UpperCase(edtFornecedor.Text) + ´¬´;
    end;
    dmContaPagar.qryContaPagar.Sql.Add(´and (form.id_fornecedor = ctp.id_fornecedor)´);
    dmContaPagar.qryContaPagar.Sql.Add(´order by dataemissao´);
    dmContaPagar.qryContaPagar.Open;

    dmContaPagar.qryContaPagar.Close;
    dmContaPagar.qryContaPagar.Sql.Clear;
    dmContaPagar.qryContaPagar.Sql.Add(´select ctp.*, form.nome´);
    dmContaPagar.qryContaPagar.Sql.Add(´from contapagar ctp´);
dmContaPagar.qryContaPagar.Sql.Add(´ineer join formecedor form on (form.id_fornecedor = ctp.id_fornecedor)´);
    if Trim(edtFornecedor.Text) = ´´ then
      dmContaPagar.qryContaPagar.Sql.Add(´where ctp.id_fornecedor is not null´)
    else
    begin
      dmContaPagar.qryContaPagar.Sql.Add(´where upper(form.nome) Like :nome´);
      dmContaPagar.qryContaPagar.ParamByName(´nome´).AsString := UpperCase(edtFornecedor.Text) + ´¬´;
    end;
    dmContaPagar.qryContaPagar.Sql.Add(´order by dataemissao´);
    dmContaPagar.qryContaPagar.Open;