El problema es que el nombre de los campos no debe ir entre comillado...
Código Delphi
[-]
filtro := 'Select * from agenda where ' + lowercase(campo) + ' like ''' + TXTbusca.text + '%''';
Ahora también podrías usar:
Código Delphi
[-]
Filtro := Format('select * from agenda where %s like ''%s%%''', [lowercase(campo), TXTBusca.Text]);
Saludos...