[Homez]

Код ryderx34 не очень хорош. Дело в том, что функция RandomRange выдает только целые значения из диапазона. Поэтому, например, число 0.21 будет возможно, а 0.215 - нет. Я предлагаю следующее:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  MinVal, MaxVal: Double;
begin
  MinVal := 0.2;
  MaxVal := 0.85;
  Edit1.Text := FloatToStr(Random * (MaxVal - MinVal) + MinVal);
end;

И при этом надо не забыть вызвать Randomize для инициализации генератора случайных чисел, например, при создании формы.