InputBox Как отследить нажатие "Отмена"

[Женя32]

Здравствуйте!
Скажите пожалуйста, как отследить что пользователь нажал "Отмена"?

 repeat
    NumTerazhTMP:= InputBox('Test program', 'Пожалуйста, укажите свой возраст', '');
     if TryStrToInt(NumTerazhTMP, NumTerazh) then
       begin
          ...
       end
       else
        NumTerazh := 0;

  until NumTerazh <> 0;

[digitalis]

Это вроде как VBA, как оно попало в этот раздел ?

[Женя32]

Сообщение от digitalis

Это вроде как VBA, как оно попало в этот раздел ?

Это Delphi.....

[Аватар]

Пустая строка возвращается. Хелп по функции посмотри

[Женя32]

Подскажите пожалуйста, из-за чего эта ошибка?:
[dcc32 Error] Unit2.pas(376): E2250 There is no overloaded version of 'InputQuery' that can be called with these arguments

var
 zas:boolean;
begin
 repeat
   zas:= InputQuery('Test program', 'Пожалуйста, укажите своё имя', 'Name');

[Аватар]

потому что 3-ий параметр var и не может быть константой

[Женя32]

Сообщение от Аватар

потому что 3-ий параметр var и не может быть константой

А как тогда сделать нужно?

[Аватар]

Строковую переменную вместо константы. В ней будет результат если функция вернет True

[Женя32]

Почему, что в InputBox, что в InputQuery, кнопки OK и Отмена - это одна и та же кнопка? я не вижу ни какой разницы между ними, между OK и Отмена

[northener]

Сообщение от Женя32

Почему, что в InputBox, что в InputQuery, кнопки OK и Отмена - это одна и та же кнопка? я не вижу ни какой разницы между ними, между OK и Отмена

С чего возникло такое утверждение?