Source position: ovcedcal.pas line 53
type TOvcGetDateMaskEvent = procedure(
Sender: TObject;
var Mask: string
) of object;