Fórum EacessViolation ... dbexpUIBFire15.dll’. Read of address 000 #342302

Galera, estou com esse erro quando clico em meu botão localizar duas vezes.

Project FINANCEIRO.exe raised exception class EacessViolation with message ‘Acess violation at address 00CA4D76 in module ‘dbexpUIBFire15.dll’. Read of address 00000000’.

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;