Alle Kalenderwochen in Combobox darstellen

[Mazen]

Hallo Leute,
ich versteh nicht wieso mein Code nicht das tut was er soll. Ich will einfach nur alle Kalenderwochen eines gegebenen Jahres in einer Combobox darstellen:

Delphi-Quellcode:

datum := DateOf(StrToDate('31.12.'+editJahr.Text));
for i:=0 to WeekOf(datum)-1 do
begin
  cbVon.Properties.Items.Add('KW '+IntToStr(i+1));
end;
cbVon.ItemIndex := WeekOf(Now)-1;

Nachher seht aber nur "KW 1" in der Combobox und weiter nichts.
Kann mir wer sagen warum?