TServerScheduledEvent = procedure (Sender: TObject; const EventName: String; var Completed: Boolean) of object