-----------------------------------------------------------------
procedure SetupWindow; virtual;
При установке окна вызывает метод SetupWindow, наследуемый из TDialog, затем устанавливает заголовок диалогового блока в со- ответствие со строкой Caption. Текст подсказки устанавливает в Prompt, текст буфера - в Buffer, а затем ограничивает число вво- димых пользователем символов значением BufferSize - 1.