TDispatch Delegate

type
 TDispatch = procedure (const Self: TObject; var Message);