1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

var
  Form1: TForm1;
  Saetze: array[0..29] of String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize;
  Saetze[0] := 'Satz 1';
  Saetze[1] := 'Satz 2';
  Saetze[2] := 'Satz 3';
  Saetze[3] := 'Satz 4';
  Saetze[4] := 'Satz 5';
  Saetze[5] := 'Satz 6';
  Saetze[6] := 'Satz 7';
  Saetze[7] := 'Satz 8';
  Saetze[8] := 'Satz 9';
  Saetze[9] := 'Satz 10';
  Saetze[10] := 'Satz 11';
  Saetze[11] := 'Satz 12';
  Saetze[12] := 'Satz 13';
  Saetze[13] := 'Satz 14';
  Saetze[14] := 'Satz 15';
  Saetze[15] := 'Satz 16';
  Saetze[16] := 'Satz 17';
  Saetze[17] := 'Satz 18';
  Saetze[18] := 'Satz 19';
  Saetze[19] := 'Satz 20';
  Saetze[20] := 'Satz 21';
  Saetze[21] := 'Satz 22';
  Saetze[22] := 'Satz 23';
  Saetze[23] := 'Satz 24';
  Saetze[24] := 'Satz 25';
  Saetze[25] := 'Satz 26';
  Saetze[26] := 'Satz 27';
  Saetze[27] := 'Satz 28';
  Saetze[28] := 'Satz 29';
  Saetze[29] := 'Satz 30';
  {         .
            .
            .          }
end;					

1:

Edit1.Text := Saetze[Random(29];					

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

procedure TForm1.Button1Click(Sender: TObject); 
var
i: integer;
begin 
  randomize; // <-- naja,...
  for i := 0 to 29 do
    Saetze[i] := 'Satz ' + inttostr(i+1);
  edit1.text := Saetze[Random(29)]; // <-- wie von mkinzler beschrieben
                                    //     müsste eigentlich gehen
end;