ну, для начала берлин пишет на доступном языке
[dcc32 Warning] Unit1.pas(44): W1000 Symbol 'InputBox' is deprecated: 'Use FMX.DialogService methods'
во вторых
конечно, налицо просто баг в FMX.Dialogs
но, если последовать совету компилятора то вот так
TDialogservice.InputQuery('Введите номер страницы', ['Ввод'], [''],
procedure(const AResult: TModalResult; const AValues: array of string)
begin
case AResult of
mrOk:
begin
e1.text:=avalues[0];
end;
mrCancel:
begin
e1.text:='Отмена';
end;
end;
end
);
отлично запустилось и сработало