Код:
function TForm1.gen(min, max: integer): integer;
var
ch: integer;
begin
ch:=0;
while ch<min do ch:=random(max+1);
result:=ch;
end;
Будут генерироваться числа включая пределы.
Если "концы" не нужны то:
Код:
function TForm1.gen(min, max: integer): integer;
var
ch: integer;
begin
ch:=0;
while ch<min+1 do ch:=random(max);
result:=ch;
end;