Ventas por mes

[Jorge Orozco]

Hola look, me funciona bien en el sentido que no me da ningún error, pero a la hora de cargar las celdas del TStringGrid, me las carga vacias. Ejemplo de la carga:

Código Delphi [-]
  for i := 1 to conte  do
    begin
      begin
         sg1.Cells[1+c1,3] := IBQuery4.FieldByName('meses1').AsString+'-'+IBQuery4.FieldByName('anio1').AsString;

        sg1.Cells[2+c1,3] := IBQuery4.FidByName('total_mes').AsString;

      c1 := c1+2;
      end;
    IBQuery4.Next;
    end;

Gracias por la ayuda