Bueno se convirtio en capricho usar el stringgrid y la unica solucion que encontre fue esta
Código Delphi
[-]
esteTotal: string;
if QyHora.Fields.FieldByName('HTotal').IsNull then
esteTotal := '0'
else
esteTotal := QyHora.FieldValues['HTotal'];
case of estaHora of
0: begin
StringGrid1.Cells[1,18] := QyHora.FieldValues['HSacos'];
StringGrid1.Cells[2,18] := esteTotal;
end;
.
.
.
.
23: begin
StringGrid1.Cells[1,18] := QyHora.FieldValues['HSacos'];
StringGrid1.Cells[2,18] := esteTotal;
end;
end;
Aun asi, si alguien conoce un modo mas elegante de hacer esto se agradece.