1:
2:
3:
4:

var
i:Integer;
Edit1.Text:=StrToInt(i)
Random(i)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure zufall;
var i:integer;
    zahl:real;
begin
randomize;
for i:=0 to <anzahl> do
begin
zahl:=random(20)+1;
listbox1.items.add(inttostr(zahl));
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var arr: array[0..30] of integer;
  i,z:integer;
begin
  randomize;
  // Array initialisieren
  for i:=0 to 30 do
    arr[i] := 0;

  // 100 mal eine Zufallszahl erzeugen und
  // das Array an der entsprechenden Stelle erhöhen
  for i:=1 to 100 do
  begin
    z := random(31);
    arr[z] := arr[z]+1;
  end;

  // Ausgabe
  for i:=0 to 30 do
    memo1.Lines.add(inttostr(i) + ': ' + inttostr(arr[i]));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var i : integer;
bla: array[1..49] of boolean;
begin
  for i := low(bla) to high(bla) do bla[i] := false;
  for i := 1 to 6 do
  begin
    repeat 
     j := random(49)+1; 
    until bla[j] = false;
    bla[j] := true;
    listbox1.items.add(inttostr(j));
  end;
end;