[[coso]]

estas haciendo and de las dos string, tienes que insertar la palabra and en la string misma

TBConsulta.Filter := '(Apellido =' +QuotedStr(DBLkCBApellido.Text) +') and (Nombres = '+QuotedStr(DBLkCBNombres.Text)+ ')';