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:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

type tErgebnis = array [1..4] of integer;
var Ergebnis : tErgebnis;


procedure TFormBetandWin.btnAbbrechenClick(Sender: TObject);
begin
  Close;
end;

procedure TFormBetandWin.btnSimulierenClick(Sender: TObject);
//--------------------------------Deklaratioin von Lokalen Variablen
var Eingabe1, Eingabe2, Eingabe3 , Eingabe4, Gewinn, i : Integer;
    a : byte  ;

begin
//------------------------------Erzeugen von Zufallszahlen 
  Randomize;
  Ergebnis[1]:=Random(3);
  for a := 2 to 4 do begin
  Ergebnis[a]:=Random(3);
  end;


//-------------------------------Übernahme der Eingabe
  Eingabe1:=StrToInt(edtSpiel1.Text);
  Eingabe2:=StrToInt(edtSpiel2.Text);
  Eingabe3:=StrToInt(edtSpiel3.Text);
  Eingabe4:=StrToInt(edtSpiel4.Text);

//-------------------------------Gespielt (Zufall)
  lblSpiel1.Caption:=IntToStr(Ergebnis[1]);
  lblSpiel2.Caption:=IntToStr(Ergebnis[2]);
  lblSpiel3.Caption:=IntToStr(Ergebnis[3]);
  lblSpiel4.Caption:=IntToStr(Ergebnis[4]);

//-------------------------------Berechnung der Richtige
  i:=0;
  if Eingabe1=Ergebnis[1]
    then i:=i+1;

  if Eingabe2=Ergebnis[2]
    then i:=i+1;

  if Eingabe3=Ergebnis[3]
    then i:=i+1;

  if Eingabe4=Ergebnis[4]
    then i:=i+1;

  EdtRichtige.Text:=IntToStr(i);



//--------------------------------Gewinn Berechnung
  Gewinn:=StrToInt(edtEinsatz.Text);
  Gewinn:=Gewinn * i * 3;
  edtGewinn.Text:=IntToStr(Gewinn);

end;

procedure TFormBetandWin.btninfoClick(Sender: TObject);
begin
//--------------------------------Info Button
  ShowMessage ('Das Programm Simuliert Spiele. Sie können Tippen mit ' +
  '0, 1 oder 2');
  ShowMessage   ('mit 1 gewinnt die Heimmannschaft');
  ShowMessage   ('mit 0 läuft das Unentschieden aus');
  ShowMessage   ('mit 2 gewinnt die Auswärtsmannschaft');
end;