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", то программа закрывается. Подскажите в чем проблема, как исправить.