Jak wygenerować liczbę losową z przedziału od x

Jak wygenerować liczbę losową z przedziału od x do y włącznie?

np, choc nie jest to dobra metoda

var
r : typ zmiennej np real;

while not (r

wynik:=X+Random(Y+1);

wynik:=X+Random(Y+1);

tylko małe ale co jesil wy nik bedzie Y dodasz dotego X ? to razem przeroczysz zakres Y bo random losuje od 0 do Y dowolną liczbe

http://vcl.4programmers.net/viewapi.php?id=78
I jeszcze raz zobaczę pytanie o tego walniętego randoma...