-----------------------------------------------------------------
function ExecDialog(ADialog: PWindowsObject): Integer; virtual;