В диалоге действительно нет кнопки Ок ;-) Но у него есть одна полезная кнопка "Отмена", которая реально прерывает выполнение модуля.
Для кнопок ДА/НЕТ есть
CONFIRM
Use this function to create a dialog box which prompts the user for a yes or no answer. The system centers the dialog box on the screen for you.
Ok := CONFIRM(String [, Default] [, Value1] ,...)
Для вариантов выбора есть
STRMENU
Use this function to create a menu window that displays a series of options.
OptionNumber := STRMENU(OptionString [, DefaultNumber])
|