-----------------------------------------------------------------
рrocedure Ok(var Msg: TMessage); virtual id_First + id_Ok;
Автоматически реагирует на "нажатие" кнопки OK диалога, вы- зывая CanClose и EndDlg со значением id_OK. Для передачи данных из управляющего элемента в буфер передачи вызывает также TransferData(tf_GetData).
См. также: TDialog.EndDlg.