COmo genero un mensaje antes de un Sysutils.Abort

[Bitbanner]

En el BeforePost de la table tengo puesto:

If (DataMopduleModuloDatos.AdoTableClientesNombre.IsNull = True) then
Begin
raise exception.create ('debes de rellenar los rojos');
end;


Pero lo que yo quiero decir es que si podria hacer esto para que me mostrara unmensaje como este:


En el BeforePost de la table tengo puesto:

If (DataMopduleModuloDatos.AdoTableClientesNombre.IsNull = True) then
Begin
ShowMessage ('Debes de rellenar los rojos')
raise exception.create;
end;