[Cucumber]

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x : integer;
begin
// 0 <= x < 10
  x := random(10);
// 5 <= x < 15
  x := 5+ random(10);
end;