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