Wie daraus eine Funktion machen?

[sx2008]

Delphi-Quellcode:

type
  TGeldStueck = (gs1Cent, gs2Cent, gs5Cent,...., gs500Euro);  // die Punkte bitte mit Werten ersetzen (Fleissarbeit)
  TGeldStuecke = set of TGeldStueck;

procedure TForm3.EnableStueckelung(g:TGeldSuecke);
begin
  EinCent.Enabled:= gs1Cent in g;
  ZweiCent.Enabled:=gs2Cent in g;
  ... // nochmal die Fleissarbeit
  FuenfhundertEuro.Enabled:= gs500Euro in g;
end;

Nachtrag:
Damit lassen sich dann gezielt einige oder alle Checkboxen abschalten:

Delphi-Quellcode:

var
  gs : TGeldStuecke;
begin
  // Beispiel 1
  gs := [];  // Menge
  EnableStueckelung(gs); // alle Checkboxen aus
  
  // Beispiel 2
  gs := [gs1Euro, gs2Euro, gs5Euro, gs10Euro];
  EnableStueckelung(gs); // 1,2, 5 und 10 Euro Checkbox aktiv

  // Beispiel 3
  gs := gs + [gs20Cent, gs50Cent];  // Vereinigungsmenge bilden
  EnableStueckelung(gs);