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

myWahl := radiogroup.itemindex;

computerWahl := Random(2); //muesste 0 - 2 liefern

Case computerWahl of 
  0 : Label_ingroup_Box.caption := 'Papier';
  1 : .... := 'Brunnen';
  2 : ... := 'Stein';
end;

// nun die entscheidung

if myWahl = computerWahl then 
  // unentschieden
else begin
   if myWahl = 0 and computerWahl = 2 then
     // spieler gewonnen; 
  if myWahl = 1 and computerWahl = 2 then
  // spieler verloren
end;					

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

myWahl := radiogroup.itemindex; 

computerWahl := Random(2); //muesste 0 - 2 liefern 

Case computerWahl of 
  0 : Label_ingroup_Box.caption := 'Papier'; 
  1 : .... := 'Brunnen'; 
  2 : ... := 'Stein'; 
end; 

// nun die entscheidung 

if myWahl = computerWahl then 
  // unentschieden 
else begin 
   if (myWahl = 0) and (computerWahl = 2) then 
     // spieler gewonnen
  if (myWahl = 1) and (computerWahl = 2) then 
  // spieler verloren 
  if (myWahl = 1) and (computerWahl = 0) then
  //spieler verloren
end;