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

begin
 money:=StrToInt(Label2.Caption);
 Randomize;
 a:=random(3)+1;
 b:=random(3)+1;
 c:=random(3)+1;

case a of
  1:Image1.Picture.LoadFromFile('kirsche');
  2:Image1.Picture.LoadFromFile('birne');
  3:Image1.Picture.LoadFromFile('erdbeere');
end;
case b of
        1:Image2.Picture.LoadFromFile('kirsche');
        2:Image2.Picture.LoadFromFile('birne');
        3:Image2.Picture.LoadFromFile('erdbeere');
end;
case c of
                1:Image3.picture.LoadFromFile('kirsche');
                2:Image3.picture.LoadFromFile('birne');
                3:Image3.picture.LoadFromFile('erdbeere');
end;