TComputeEvent Event

MulticastDelegate→TComputeEvent

type TComputeEvent = procedure(Sender: TObject) of object;

Compute event signature.