случайные числа в диапазоне 3 (137-140)

[beegl]

Добрый день, подскажите пожалуйста, а как оформить случайные числа в диапазоне 3 ( между 137 и 140)

Label3.Position.Y := 137;
Label3.Position.Y := 140;

аа, вот, примерно так:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Left := 130 + Random(2);
Label1.Top := 36 + Random(2);
end;

работает)

[p51x]

или использовать RandomRange

[beegl]

привет, что-то XE7 не понимает строку модуля для открытия ссылки (modURL.pas)

TAndroidHelper.Context.startActivity(Intent);

этой функции:

{$IFDEF ANDROID}
function andUrl(const aURL: string): boolean;
var
  Intent: JIntent;
begin
  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, StrToJURI(aURL));
  TAndroidHelper.Context.startActivity(Intent);
end;
{$ENDIF}

пробовал добавить в модуль modURL.pas эти модули:
Androidapi.JNI.Net, FMX.Helpers.Android (вместо Androidapi.Helpers)
Ничего не изменилось. Подскажите, что не так?

P.S. заранее прошу прощения за офф-топ. .. т.е. не создавал новую тему.