procedure TMyDialog.HandleCancel(var Msg: TMessage); begin EndDlg(id_Cancel); end;