Fehlt noch was:
const
DicentriesAlerterEventAlert = WM_USER + 101;
type
TDataModule1 = class(TDataModule)
Delphi-Quellcode:
procedure WMDicentriesAlerterEventAlert(...) message WM_DicentriesAlerterEventAlert;
...
procedure TDataModule1.WMDicentriesAlerterEventAlert(...)
begin
// Ursprünglicher Code von DicentriesAlerterEventAlert
end;
Evtl. könntest Du dich mit einem (versteckten) Hilfsfenster behelfen.