1:
2:
3:
4:
5:
6:
7:
8:

function TBrett.wurf():integer;
var cube:integer;
begin
randomize;sleep(500);        // zufallsgenerator, kurze pause zur spannung
cube:=random(6)+1;
wurf:=cube;
form1.label0.caption:=IntToStr(cube);    //ausgabe in label 1
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
Maxim.setzen(Maxim.dran,Maxim.wurf);
end;					

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

procedure TBrett.duell(angreifer, verteidiger: integer);
begin
showmessage('DUELL');
showmessage('Verteidiger Bitte');

showmessage('Angreifer Bitte');
end;

procedure TBrett.setzen(spielerid,anzahl:integer);      //hier wird der zug ausgeführt
var nochzusetzen,tfeld,i: integer;
begin
[...habe hier mal einiges ausgespart...]
for i:=1 to 4 do begin   // hier wird geguckt, welcher spieler vor dem angreifer ist ist
                                             if Spieler[i].position=Spieler[spielerid].position-1 then duell(spielerid,i);
                                            end;

end;					

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

var
  iWurf1 : Integer;

procedure TForm1.Button1Click(Sender: TObject);   
begin   
  if Duell then begin
    if iWurf1 > 1 then begin  // Wenn zum 2. mal gewürfelt wird
      Maxim.setzen(DuellGegner1,iWurf1);
      Maxim.setzen(DuellGegner2,Maxim.wurf);
    end else iWurf1 := Maxim.wurf;
  end else Maxim.setzen(Maxim.dran,Maxim.wurf);  //Wenn kein Duell
end;