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

// Folgewurf -> gesicherte Würfel und leere Positionen ignorieren
procedure TMainForm.NextRoll;
  var
    i: Integer;
begin
  Saved.DisableMoving; // d&d ausschalten
  Current.DisableMoving;
  Saved.Sort(FALSE); // gesicherte der Augenzahl nach anordnen, aber rechtsbündig
  for i := 0 to 4 do begin
//--- rausnehmen, wenn gesicherte Würfel trotzdem wieder beweglich sein sollen ---
    Saved.Dice[i].Locked := Saved.PosInUse[i]; // weggelegte Würfel sichern
//---
    if (Current.PosInUse[i]) then // liegt auf der Position ein Würfel zum Aktualisieren?
      Current.Dice[i].Value := Random(6)+1; // dann neu werfen
  end;
  Current.Sort; // neue Würfel der Augenzahl nach anordnen
  Evaluate; // Wurf (neu) bewerten
  Saved.EnableMoving; // d&d freigeben
  Current.EnableMoving;
end;                    

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

begin
  Randomize; // Zufallszahlengenerator initialisieren
  CreateDynamicControls; // Controls zum Punktezählen erzeugen
  // dynamische Würfel-Panels anlegen
  Saved := TDiceArea.Create(MainForm,224,248,WhiteDice,SavedDiceClick);
  Current := TDiceArea.Create(MainForm,224,368,WhiteDice,CurrentDiceClick);
  // persönliche Einstellungen aus den "Eigenen Dateien" laden
  SetFileName := GetSpecialFolder(CSIDL_PERSONAL)+'\Kniffel.set';
  Settings := TIniFile.Create(SetFileName);
  rgDiceType.ItemIndex := Settings.ReadInteger('Global','DiceType',rgDiceType.ItemIndex);
  edUserName.Text := Settings.ReadString('Global','PlayerName',GetPlayerName);
  Settings.Free;
  LoadHighscores; // Highscores wiederherstellen
  BtnStartGameClick(Self); // Start ist auch Neustart
end;