Kalender mit Checkboxen

[Bummi]

so, siehst Du wenigstens etwas und kannst den Rest der Bugs ausbauen

Delphi-Quellcode:

procedure TForm1.listboxenverteilen;                             //Hier müsste irgendwo der Fehler sein!
var x,y,i:integer;
begin
x:=day-1-1;
y:=1;
for i:=1 to 31{daysinamonth(strtoint(jahr),strtoint(mon))} do
 begin
  L[i]:=TListbox.Create(self);

      L[i].Color := clLime;
      L[i].parent := Kalender;
      L[i].name := 'L'+IntToStr(i);
      L[i].Boundsrect := Kalender.CellRect(x,y);
      L[i].BringToFront;
     if x<6 then
      begin
       inc(x);
      end
     else
      begin
       x:=0;
       inc(y);
      end;

 end;

end;