Source position: msedialog.pas line 151
type datetimedialogexeceventty = procedure(
const sender: tcustomdataedit;
var avalue: tdatetime;
var modresult: modalresultty
) of object;