Zitat von
MSSSSM:
if StrToTime(minTime) < DateMontag.Time then
Der Vergleich ist nicht ganz richtig, da Time vom Typ TDateTime ist.
Per Frac(Time) kann die Zeit extrahiert werden.
Richtig ist es so:
if StrToTime(minTime) < Frac(DateMontag.Time) then