Kalender mit Checkboxen

[Pullmoll]

Hallo,
ich habe ein ähnliches Problem, ich möchte das man einen oder mehrere Wochentage (Montag, Diensatg, ...) per Checkbox auswählen kann und diese werden dann mit dem heutigen Wochentag vergleicht. Leider stoße ich aber auf das Problem das ich es nicht hin bekomme. (Hatte vor diese dann mit einer Case_Anweisung zu vergleichen)

mein Ansatz:

var
Wochentag: integer;
datum : TDateTime;

begin
datum := date; //Datum von Heute
wochentag := LongDayNames[DayOfWeek(datum)];
Label1_Wochentag.Caption := IntToStr[DayOfWeeek(Datum)];

normal sollte DayOfWeek doch einen Integer Wert zurück geben oder?
andere Lösungsvorschläge ?