[atirukas]

Hola soy nueva programando con delphi, estoy realizando un programa en delphi 7 y no me ejecuta una instruccion q es sencilla c:=c+1; no se si la estoy colocando mal o q es lo q pasa pongo un fragmento del codigo q utilizo
while(fecha <= datetimepicker2.Date)do begin
if c<=5 then begin
for d:=0 to i do begin
if fecha =nohabil[d] then
j:=1; break;
end;
if j=0 then begin
year[r][c]:=fecha;
fecha:=fecha+1;
end
else begin
fecha:=fecha+1;
end;
c:=c+1;
end
else
fecha:=fecha+1;
r:=r+1;
c:=0;
listbox1.Clear;
end;

no se donde este el error, c es un valor entero. Espero alguien pueda ayudarme. de antemano muchas gracias.