perdon es q soy nueva en esto, pero aqui les dejo la solución. Bien la solucion fue sencila lo q hacia era q le asignaba un valor inicial a c antes de comenzar el while, la solución fue cambiar esas instrucciones dentro de while y borra la instruccion c:=c+1; Entonces me quedó así;
Código Delphi
[-]
while(fecha <= datetimepicker2.Date)do begin
dia:=LongDayNames[DayOfWeek(fecha)];
if dia='Lunes' then c:=0;
if dia='Martes'then c:=1;
if dia='Miércoles'then c:=2;
if dia='Jueves'then c:=3;
if dia='Viernes'then c:=4;
if dia='Sábado'then c:=5;
if dia='Domingo'then c:=6;
if c <= 5 then begin
for d:=0 to i do begin
if fecha =nohabil[d] then begin
j:=1;
break;
end;
end;
if j=0 then begin
year[r][c]:=fecha;
fecha:=fecha+1;
end
else begin
year[r][c]:= strtodate('30/12/1899');
fecha:=fecha+1;
j:=0;
end;
end;
if c = 6 then begin
fecha:=fecha+1;
r:=r+1;
end;
end;
Bueno eso es todo