InputBox(const Acaption, APrompt, Adefault: String): String - функция Delphi, создает диалоговое окно для ввода строки текста. Окно располагается в центре экрана и содержит в себе поле для ввода с надписью и две кнопки OK и Cancel.

Acaption - параметр, устанавливает заголовок окна выводимый вверху на синем фоне.

APrompt - параметр, задает поясняющий текст на сером фоне.

Adefault - определяет строку текста,  которая будет показана в поле ввода и выделена синим цветом. При вводе текста надпись сразу пропадет. При отказе пользователя от ввода текста, нажатием кнопок ESC и Cancel функция InputBox возвратит этот параметр.

Для закрепления материала создадим небольшое приложение с которым мы будем вести диалог.

Расположим на форме простую кнопку и в ее обработчике напишем следующие команды:

procedure TForm1.Button1Click(Sender: TObject);
var
   fio : string;
   age : integer;
begin
   fio := InputBox('ФИО','Как Вас зовут','Не задано');
   age := StrToInt(InputBox('Возраст','Сколько Вам полных лет','0'));
   ShowMessage('Здравствуйте '+fio+#10#13+ 'Ваш возраст '+IntToStr(age)+ ' лет');
end;

При щелчке на кнопке мы получим запрос о нашем имени. Ответив или нет мы попадаем ко второму запросу о возрасте. В последнем окне мы получим, как результат нашей работы Приветствие с сообщением о нашем возрасте. Подобным образом можно сделать приложение по тестированию.

Итог: нами была рассмотрена функция InputBox, ее применение в приложении.