InputBox - это функция Выводит окно ввода, возвращает введенный текст InputBox( [
InputBox( 'Введите пароль:' )
if INPUTBOX( 'Введите пароль:', CHR( 1 ) + ' ', ) <> '47842' return endif
Полезные функции
Функции Delphi
Input_Box