Consulta select con %

[edelphi]

Compañeros regrese a preguntar por que ahora el problemita esta un poquito mas dificil

se trata de que el campo con el cual quiero hacer la consulta se pase desde una variable algo asi

Código Delphi [-]
filtro:='Select * from agenda where '''+lowercase(campo)+''' like '''+TXTbusca.text+'%'+'''';

donde campo es el campo que esta convirtiendose a minusculas y TXTbusca es el valor cone el cual se compara para hacer la consulta

esta consulta no me corre no se por que de seguro la posicion de los apostrofes esta mal por favor diganme como es la posicion correcta