Pascal 7 & Objects
ExecDialog (никогда не переопределяется)
-----------------------------------------------------------------
function ExecDialog(ADialog: PWindowsObject): Integer; virtual;
-----------------------------------------------------------------
function ExecDialog(ADialog: PWindowsObject): Integer; virtual;