var
  value : string;

begin
  // Продолжаем спрашивать у полльзователя его имя
  repeat
    if not InputQuery('Test program', 'Пожалуйста, укажите своё имя', value)
    then ShowMessage('Пользователь прервал диалог');
  until value <> '';

  // Показ его имени
  ShowMessage('Hello '+value);
end;