Hi,
der Variablename "tag" ist ziemlich unglücklich da TComponent."tag" bereits vergeben ist. Ggf. löst das schon Dein Problem, ansonsten schau Dir folgendes mal an (schon auf Deinen Code modifiziert, die until-Anweisung hat hier nicht wirklich einen Sinn....):
Delphi-Quellcode:
var
startDate, myIncDate: TDate;
i: integer;
begin
//Finde das Datum des nächsten Sonntags
i := 1;
startDate := now;
repeat
myIncDate := incDay(startDate,i);
if DayOfWeek(myIncDate) = 7 then showmessage('Nächster Sonntag am: '+Datetostr(myIncDate+1));
i := i+1;
until (DayOfWeek(myIncDate)=DayOfWeek(Now));
Gruß Darlo