¿como mandar mensajes desde Datamodule?

[Descendents]

has mirado si entra el programa dentro del codigo?

ponte encima de esta linea

if Principal.ComboBox16.ItemIndex=-1 then

y dale a F5. Entonces corre el programa y cuando se pare , dale a F8 y iras avanzando y mira a ver si entra.

Sino entra, es que if Principal.ComboBox16.ItemIndex=-1 then
le hace no entrar.Esta condición no es correcta supongo.

Y si entra , mira cuando pase por showmessage a ver que hace.

Por cierto si quieres que para antes de grabar es el beforepost no afterpost.

Un saludo