Antes que nada pon el código entre las etiquetas [ delphi ] y [ /delphi ]
Verifica cuantas veces pasa por el bucle.
No especificas como se carga la variable CONTE que determina la cantidad de veces que se realiza el bucle.
Tampoco inicializas la variable C1.
Normalmente se utiliza un bucle WHILE para estas cosas:
Código Delphi
[-]
c1 := 0;
IBQuery4.First;
while (not IBQuery4.EOF) 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;