Стандартные диалоги

[Dzemon]

В диалоге действительно нет кнопки Ок ;-) Но у него есть одна полезная кнопка "Отмена", которая реально прерывает выполнение модуля.

Для кнопок ДА/НЕТ есть
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])