Fórum Problemas em consulta - SQL #342137

Galera tô com um problema no botão de localizar. Tenho duas condições no form, Começar com ou Por nome ou cnpj.
Esta dando um erro de sql. Aí debuguei e encontrei o seguinte erro na variável ´consulta´. Está sendo prenchido assim:

consulta | select id_cod, id_nome from cliente whereid_nome´

whereid_nome estão juntas o certo seria where id_nome´.

Como faço para resolver?
Vai aí meu código:



procedure TF_LOCALIZAR_CLIENTES.Button1Click(Sender: TObject);
Var
Consulta: String;
begin
if Trim (edbusca.Text) <> ´´ then
Begin
consulta:=´select id_cod, id_nome, id_cnpj from cliente where´;

//No campo Nome ou CNPJ
if RadioCampo2.itemindex = 0 then
consulta:=consulta + ´id_nome´
else
consulta:= consulta + ´id_cnpj´;

//Que:
if RadioCampo3.ItemIndex=0 then
begin
consulta:=consulta + ´starting with ´´´ + edbusca.text + ´´´´;
end
else
if RadioCampo3.ItemIndex=1 then
consulta:=consulta + ´like´´¬´ + edbusca.Text + ´¬´´´
else
consulta:=consulta + ´like ´´¬´ + edbusca.Text + ´´´´;
Try
transacao.TransactionID:=1;
transacao.IsolationLevel:= xilREPEATABLEREAD;
dm.CONEXAO.StartTransaction(transacao);
dm.q_cliente.close;
dm.q_cliente.sql.clear;
dm.q_cliente.sql.append(consulta);
dm.q_cliente.open;
dm.conexao.Commit(transacao);
except
on Exc:Exception do
begin
ShowMessage(´Ocorreu um erro na consulta:´+ Exc.Message);
DM.CONEXAO.Rollback(transacao);
end;
end;
end;
end;