-----------------------------------------------------------------
рrocedure Cancel(var Msg: TMessage); virtual id_First + id_Cancel;
Автоматически отвечает на активизацию кнопки Cancel (Отмена) диалога. Вызывает EndDlg со значением id_Cancel.
См. также: TDialog.EndDlg.