InputQuery(const ACaption, APrompt: string; var Value: String): Boolean - функция Delphi, которая выводит диалоговое окно в центре экрана с полем для ввода и надписью, вместе с кнопками OK и Cancel. От функции InputBox отличается тем, что третий параметр строки заменен на Value, который если ввод подтвержден содержит введенную пользователем строку.

Функция в качестве результата возвращает логическое значение, с помощью которого можно определить как завершен диалог. Значение TRUE будет при нажатой кнопке OK, FALSE - при нажатии на кнопку Cancel или на клавишу ESC.

Для закрепления материала создадим приложение с диалогом. Диалоговое окно запрашивает у нас фамилию и инициалы. По умолчанию предлагается - Гость, чтобы строка запроса была пустая, переменная fio должна состоять из открывающей и закрывающей одинарных кавычек ( fio := ''; ).

Поместим на форму кнопку и в ее обработчике запишем следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var fio : string;
begin
    fio := 'Гость';
    If  InputQuery('Идентификация пользователя',
     'Введите фамилию и инициалы',fio)
        then ShowMessage('Добро пожаловать '+fio)
         else ShowMessage('Вы незнаете как Вас зовут');
end;

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