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:

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
    i:integer;
    fehler:integer;
    ergebnis:string;
begin
val(edit1.text,a,fehler);
 if fehler<>0 then
   begin
   edit1.SetFocus;
   showmessage('Fehlerhafte Eingabe');
   exit
   end;

val(edit2.text,b,fehler);
 if fehler<>0 then
   begin
   edit2.SetFocus;
   showmessage('Fehlerhafte Eingabe');
   exit
   end;

randomize;
i := random(10)+1;
str(i:8,ergebnis);
edit3.text:=ergebnis;					

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

if i<a then
 differenz1:=a-i
else
 differenz1:=i-a;

if i<b then
  differenz2:=b-i
else
  differenz2:=i-b;

if
  differenz1<differenz2 then
  ShowMessage('Spieler A hat gewonnen!')
else
  ShowMessage('Spieler B hat gewonnen!')					

1:
2:
3:
4:

if abs(dif-a) < then abs(dif-b) then
  //spieler 1 hat gewonnen
else
  //speielr 2 hat gewonnen