Вылетает приложение

[Letter]

TDialogservice.InputQuery('первое заполнение', ['второе заполнение'], [''],
    procedure(const AResult: TModalResult; const AValues: array of string)
      begin
        case AResult of
          mrOk:
             DIALOG:=StrToint(AValues[0]);
          mrCancel:
             DIALOG:=0;
        end;
      end
    );

Использую такой код для диалога, но проблема в том, что если ни чего ни ввести в окно диалога, и нажать "OK", то программа закрывается. Подскажите в чем проблема, как исправить.

[Slym]

AValues[0] - нулевого элемента может и не быть...