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:

// priorisiertes Optimum bestimmen
procedure TForm1.BtnCalcClick(Sender: TObject);
  var
    Soll,i,j: Integer;

  // Prioritätenindex in Kategorie-Index umschlüsseln
  function Prio2Kat(const PrioIndex: Integer): Integer;
  begin
    Result := Integer(Prio.Items.Objects[PrioIndex]);
  end;

  // Maximum in der angegebenen Kategorie auswählen, Priorität beachten (umschlüsseln!)
  procedure ResetKat(const Index: Integer);
  begin
    Kat[Prio2Kat(Index)].ItemIndex := 0; // größter Wert
    KatChange(Self); // aktuellen Wert berechnen
  end;

  // angegebene Kategorie optimieren, Priorität beachten (umschlüsseln!)
  procedure Optimize(const Index: Integer);
    var
      ikat: Integer;
  begin
    ResetKat(Index); // erstmal Maximum nehmen
    ikat := Prio2Kat(Index); // Priorität umschlüsseln
    Log.Lines.Add('Optimiere Kategorie '+Werte[ikat].Symbol);
    // solange das Soll noch überschritten ist und Werte da sind, runter gehen
    while ( (Kat[ikat].ItemIndex < Kat[ikat].Items.Count-1) and (SelValue > Soll) ) do begin
      Kat[ikat].ItemIndex := Kat[ikat].ItemIndex +1; // kleineren Wert nehmen
      KatChange(Self); // aktuellen Wert berechnen
      Log.Lines.Add('  '+KatA.Text+','+KatB.Text+','+KatC.Text+' Wert: '+Current.Text);
    end;
  end;

begin
  Log.Clear; // Protokoll löschen
  // aktuellen Soll-Wert umwandeln
  Soll := StrToIntDef(Budget.Text,500);
  Budget.Text := IntToStr(Soll); // wieder ausgeben, falls es der Default-Wert war
  // Maximum auswählen
  for i := 0 to 2 do
    ResetKat(i);
  Log.Lines.Add('Maximalauswahl getroffen, Wert: '+Current.Text);
  // jetzt die Kategorien abwerten, bis es passt, unwichtigste zuerst
  for i := 2 downto 0 do begin
    Optimize(i);
    if (SelValue < Soll) then begin // Soll unterschritten?
      Log.Lines.Add('Soll unterschritten, mögliche Aufwertung prüfen:');
      for j := i+1 to 2 do // untergeordnete Kategorien prüfen...
        Optimize(j); // ...ist vielleicht noch "Platz" für Verbesserungen
    end;
  end;
  if (SelValue > Soll) then
    Log.Lines.Add('Budget reicht nicht aus!');
end;