Simplemente es esto, yo creo k esta bien:
for i:=0 to sgCitas.RowCount-1 do
sgCitas.Cells[0,i]:=ArrayHoras[i];
Luego he probado con esto:
sgCitas.Cells[0,1]:=ArrayHoras[1];
sgCitas.Cells[0,2]:=ArrayHoras[2];
sgCitas.Cells[0,3]:=ArrayHoras[3];
sgCitas.Cells[0,4]:=ArrayHoras[4];
sgCitas.Cells[0,5]:=ArrayHoras[5];
sgCitas.Cells[0,6]:=ArrayHoras[6];
sgCitas.Cells[0,7]:=ArrayHoras[7];
sgCitas.Cells[0,8]:=ArrayHoras[8];
sgCitas.Cells[0,9]:=ArrayHoras[9];
.......
sgCitas.Cells[0,57]:=ArrayHoras[57];
Si pongo las 57 lineas tb falla pero si pongo solo 20 no
