Bevor du Random aufrufen tust musst du randomize aufrufen!
Delphi-Quellcode:
begin
randomize;//den Random Generator inizialisieren!
i := random(10);
Case i of
0 : shape1.Visible:= true;
1 : shape2.Visible:= true;
2 : shape3.Visible:= true;
3 : shape4.Visible:= true;
4 : shape5.Visible:= true;
5 : shape6.Visible:= true;
6 : shape7.Visible:= true;
7 : shape8.Visible:= true;
8 : shape9.Visible:= true;
9 : shape10.Visible:= true;
end;
end;