Activar y desactivar evento BeforePost

[JarLem]

Hola Compañeros del foro...

Tengo un problema con un IBDataSet, me explico, el IBDataSet tiene un evento BeforePost en este evento hago unas validaciones para garantizar la correcta entrada de datos, todo va bien en este sentido, el problema suscede cuando modifico este evento desde un procedure que tengo para una accion en particular en la lo tengo que desactivar.

El procedure es el siguiente:

Código Delphi [-]
procedure TDataModule.Cambio;
begin
      IBDataSet1.BeforePost := Nil;
      IBDataSet1.Edit;
      IBDataSet1.FieldByName('CAMPO_1').Value := IBQuery.FieldByName('CAMPO_1').Value;
      IBDataSet1.Post;
      IBDataSet1.BeforePost := IBDataSet1.BeforePost; // Esta linea aparentemente no hace nada
end;

Cuando se ejecuta este procedure por primera vez realiza lo que se desea, pero cuando intento guardar datos en el IBDataSet ya no se dispara el evento BeforePost de este y no puedo hacer las validaciones descritas, la unica manera que he encontrado para solucionarlo es salir y volver a entrar en la aplicación sin ejecutar el procedure, pero obviamente esto no es practico.

Creo que no es dificil la solución, pero no la se y acudo a ustedes en busca de ayuda ...

Utilizo Delphi 7 y Firebird 2.0

JarLem