Jetzt aufeinmal ist mir alles klargeworden und es klappt
So habe ich es gelöst:
Delphi-Quellcode:
for w := 1 to 5 do begin
Memo1.Lines.Add(Wochentag[w+1]);
for s := 0 to lv_daten.Items.Count -1 do begin
WTDatum := DayofWeek(strtodate(lv_daten.Items[s].caption));
if WTDatum = w+1 then begin
Memo1.lines.add(lv_daten.items[s].subitems[0];
end;
end;
end;