Hola...
Así sin que digas que error es el que te "tira", pues está un poco difícil ver donde podría estar tu problema. Ahora, revisando rápidamente tú código, veo que en la creación de la cadena SQL te faltan algunos espacios en blanco:
Código Delphi
[-]
sSQL := 'delete from MANUALESPRODUCTO where PLN_CODIGO = ' + QuotedStr((lista.Objects[w] as TManualFactory).CodigoM) +
' and PLN_NRO_REV = ' + IntToStr((lista.Objects[w] as TManualFactory).RevisionM) +
' and PLN_DESCRIPCION = ' + QuoTedStr((lista.Objects[w] as TManualFactory).DescripcionM);
Saludos...