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:

if g<400 then begin showmessage ('Zu wenig Geld'); end
else if g >= 400 then begin ks:= random(30) +1; randomize;
g:= g-400; geld.Caption:= inttostr(g) +' $';
end;
if ks=1 then begin Sturm.Caption:= 'Anelka (83)'; stp:=83;
end else if ks=2 then begin Sturm.Caption:= 'Gomez (82)'; stp:=82;
end else if ks=3 then begin MF.Caption:= 'Nani (82)'; mp:=82;
end else if ks=4 then begin mf.Caption:='Ballack (83)'; mp:= 83;
end else if ks=5 then begin verteidiger.Caption:='Heitinga (82)'; vp:=82;
end else if ks=6 then begin verteidiger.Caption:='Zambrotta (81)'; vp:=81;
end else if ks=7 then begin tw.Caption:='Valdes (83)'; tp:= 83;
end else if ks=8 then begin tw.Caption:='Adler (82)'; tp:=82;
end else if ks=9 then begin Sturm.Caption:='Higuain (83)'; stp:= 83;
end else if ks=10 then begin Sturm.Caption:='Gilardino (81)'; stp:=81;
end else if ks=11 then begin mf.Caption:='Yaya Toure (82)'; mp:=82;
end else if ks=12 then begin mf.Caption:='Bale (83)'; mp:=83;
end else if ks=13 then begin verteidiger.Caption:='Samuel (83)'; vp:=83;
end else if ks=14 then begin verteidiger.Caption:='Albiol (80)'; vp:=80;
end else if ks=15 then begin sturm.Caption:='Olic (82)'; stp:=82;
end else if ks=16 then begin tw.Caption:='Abbiati (82)'; tp:=82;
end else if ks=17 then begin Sturm.Caption:='Suarez (83)'; stp:=83;
end else if ks=18 then begin mf.Caption:='Cazorla (80)'; mp:=80;
end else if ks=19 then begin verteidiger.Caption:='Chiellini (84)'; vp:=84;
end else if ks=20 then begin tw.Caption:='Lloris (83)'; tp:=83;
end else if kg=21 then begin verteidiger.Caption:='Mellberg (80)'; mp:=80;
end else if kg=22 then begin mf.Caption:='Mascherano (80)'; mp:=80;
end else if kg=23 then begin mf.Caption:='K.P.Boateng (80)'; mp:=80;
end else if kg=24 then begin mf.Caption:='Donovan (82)'; mp:=82;
end else if kg=25 then begin Sturm.Caption:='Benzema (83)'; stp:=83;
end else if kg=26 then begin Sturm.Caption:='Arshavin (83)'; stp:=83;
end else if kg=27 then begin Verteidiger.Caption:='Chivu (84)'; stp:=84;
end else if kg=28 then begin Sturm.Caption:='Pato (82)'; stp:=82;
end else if kg=29 then begin Verteidiger.Caption:='Carvalho (82)'; stp:=82;
end else if kg=30 then begin Sturm.Caption:='Huntelaar (84)'; stp:=84;
end;
p:= tp + vp + mp + stp;
power.Caption:= inttostr(p);
end;                    

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

if g<400 then
begin 
  showmessage ('Zu wenig Geld'); 
end
else 
  if g >= 400 then 
  begin 
    ks:= random(30) +1; 
    randomize;
    g:= g-400; 
    geld.Caption:= inttostr(g) +' $';
  end;