Random

[Mothergrayham]

hab das jetzt so gemacht aber da ist irgendwo ein fehler drin

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
RandomValue := random(10);
case RandomValue of
0: Form1.Show;
1: Form2.Show;
2: Form3.Show;
end;