InputQuery в модуле QDialogs

[_SERGEYX_]

В модуле QDialogs есть парочка интересных InputQuery (для integer и double).
Первая работает как положено:

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var i: Integer;  btnOK: Boolean;
begin
  i := 10;
  btnOK := InputQuery('Заголовок', 'Целое число', i, 5, 100, 1);
  if btnOK then ShowMessage(IntToStr(i));
end;

Во первых, есть SpinEdit с указанным инкрементом и i не может быть < 5 или > 100.

Со второй косяк:

procedure TForm1.RzBitBtn2Click(Sender: TObject);
var d: Double; btnOK: Boolean;
begin
  d := 17.23457;
  btnOK := InputQuery('Заголовок', 'Дробное число', d, 1, 100, 1);
  if btnOK then ShowMessage(FloatToStr(d));
end;

Напомню эту функцию

function InputQuery(const ACaption, APrompt: WideString; 
var Value: Double, Min: Double = Low(Integer); 
Max: Double = High(Integer); Decimals: Integer = 1): Boolean;

Ничего не работает. d может принимать значения < min и > max. К-во знаков после запятой не учитывается. Спасибо, что не разрешает буквы вместо цифр вводить.
Где собака зарыта?

[Stilet]

Это в какой версии Делфи?

[_SERGEYX_]

В седьмой. В папке Lib лежит файл QDialogs.dcu. Он есть в стандартной поставке.
Надо в uses добавить QDialogs.
И набрать InputQuery(...
Обычный InputQuery (из Dialogs) только для String.
Добавятся еще три (из QDialogs) для WideString, Integer и Double.