1:
2:
3:
4:
5:

const                
   ZufallsBereich = 100000;        
begin
   edit1.text:=IntToStr(Random(Zufallsbereich));    
end;					

1:
2:

LNr := random(Zufallsbereich - 8000);
LNr := LNr + 8000;					

1:
2:
3:
4:
5:
6:
7:

const
  RANGE_FROM = 8000;
  RANGE_TO =100000;
begin
  Randomize;
  Edit1.Text:= IntToStr(Random(RANGE_TO - RANGE_FROM) + RANGE_FROM));
end;					

1:
2:

randomize;
zufall := random(92000) + 8000;