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

procedure TForm1.Button1Click(Sender: TObject);
var tip, ergebnis: Real;
begin
ergebnis:= StrToInt(label1.Caption);
If Radiobutton1.Checked then
tip :=  ergebnis / 2 ;
tip := trunc(tip) ;
label1.Caption := FloatToStr(ergebnis) ;
Radiobutton1.Checked:= FALSE;
If Radiobutton2.Checked then
tip := ergebnis+(ergebnis*1/2);
tip := trunc(tip);
label1.Caption := FloatToStr(tip);
Radiobutton2.Checked:= FALSE;
end;					

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:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:

const
  MIN =   1;
  MAX = 100;

type
  TAppState = ( // Anwendungszustände aufzählen:
    asRunning,  //   Spiel läuft
    asFinished, //   Zahl erraten
    asWaiting   //   Warten auf Neustart oder Ende
    );

  TForm1 = class(TForm)
    lblNumber: TLabel;
    BtnLower: TButton;
    BtnHigher: TButton;
    BtnStart: TButton;
    BtnGotcha: TButton;
    BtnExit: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BtnStartClick(Sender: TObject);
    procedure BtnLowerClick(Sender: TObject);
    procedure BtnHigherClick(Sender: TObject);
    procedure UpdateRange;
    procedure BtnGotchaClick(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
  private
    FAppState: TAppState;
    FRangeMin: Integer;
    FRangeMax: Integer;
    procedure SetAppState(const Value: TAppState);
    procedure SetRangeMax(const Value: Integer);
    procedure SetRangeMin(const Value: Integer);
  public
    RangeMid: Integer;
    property AppState: TAppState read FAppState write SetAppState;
    property RangeMin: Integer read FRangeMin write SetRangeMin;
    property RangeMax: Integer read FRangeMax write SetRangeMax;
  end;

implementation

// Programmzustand in die GUI übertragen
procedure TForm1.SetAppState(const Value: TAppState);
begin
  FAppState := Value; // Zustand merken
  lblNumber.Caption := IntToStr(RangeMid)+' ?'; // Ausgabe: Ratezahl
  // Buttons passend de-/aktivieren
  BtnLower.Enabled := (FAppState = asRunning);
  BtnHigher.Enabled := (FAppState = asRunning);
  BtnStart.Enabled := (FAppState = asWaiting);
  BtnGotcha.Enabled := (FAppState in [asRunning,asFinished]);
end;

// Suchbereich aktualisieren und entscheiden, ob das Spiel damit beendet ist
procedure TForm1.UpdateRange;
begin
  RangeMid := (FRangeMin +FRangeMax) div 2; // neue aktuelle Zahl = Mitte Bereich
  if (FRangeMin < FRangeMax) then // ist es überhaupt noch ein Bereich?
    AppState := asRunning // ja, weiter raten
  else
    AppState := asFinished; // nein, aktuelle Zahl ist die gesuchte!
end;

procedure TForm1.SetRangeMin(const Value: Integer);
begin
  FRangeMin := Value;
  UpdateRange;
end;

procedure TForm1.SetRangeMax(const Value: Integer);
begin
  FRangeMax := Value;
  UpdateRange;
end;

// bei Programmstart ausführen
procedure TForm1.FormCreate(Sender: TObject);
begin
  BtnStartClick(Self); // Programmstart ist auch Spielstart
end;

// neues Spiel
procedure TForm1.BtnStartClick(Sender: TObject);
begin
  MessageDlg('Bitte eine Zahl zwischen '+IntToStr(MIN)+' und '+
             IntToStr(MAX)+' ausdenken!',mtInformation,[mbOK],0);
  RangeMin := MIN; // Startwerte setzen
  RangeMax := MAX;
end;

// gesuchte Zahl ist kleiner, als angezeigt
procedure TForm1.BtnLowerClick(Sender: TObject);
begin
  RangeMax := RangeMid -1; // gesuchte Zahl muss unterhalb der Aktuellen sein
end;

// gesuchte Zahl ist größer, als angezeigt
procedure TForm1.BtnHigherClick(Sender: TObject);
begin
  RangeMin := RangeMid +1; // gesuchte Zahl muss oberhalb der Aktuellen sein
end;

// Zahl erraten
procedure TForm1.BtnGotchaClick(Sender: TObject);
begin
  AppState := asWaiting; // auf Neustart oder Ende warten
end;

// Programm beenden
procedure TForm1.BtnExitClick(Sender: TObject);
begin
  Close;
end;