StringGrid Fechas
 

Buenas noches programadores estaría necesitando de sus ayudas, mi consulta es la siguiente como puedo hacer para que stringgrid me sumo mes por mes por ejemplo
1 - 01/01/2022
2 - 01/02/2022
3 - 01/03/2022

lo intente pero me acerque muy poco solo logre que la fechas se repitan todos el mismo mes
ejemplo:
1 - 01/01/2022
2 - 01/01/2022
3 - 01/01/2022

DESDE YA AGRADEZO VUESTRA AYUDA este seria el código que hice:

Código Delphi [-]
procedure TFORMDANZA.BitBtn1Click(Sender: TObject);
var
C: Integer;
i : Integer;
begin
;
for i := 1 to 5 do
begin
StringGrid1.Cells [0, i ] := intToStr(i);
end;

for C := 1 to 5 do
  begin
StringGrid1.Cells [1, C ] := DateToStr(IncMonth(DateTimePicker1.Date,1));
end

No entiendo el problema. ¿Tal vez buscas indicar de forma automática un grupo de fechas?

Código Delphi [-]
for i:=1 to 12 do
// Así
 StringGrid1.Cells [1, i-1 ] := '01/'+inttostr(i)+'/2022';
// O así
 StringGrid1.Cells [i, 0 ] := DateToStr(EncodeDate(2022, i, 01));
// O si ya tienes la fecha y debes incrementarla
 DecodeDate(myDate, myYear, myMonth, myDay);
 StringGrid1.Cells [i, 0 ] := DateToStr(EncodeDate(myYear, myMonth+1, myDay));

Falta
 

Hola buenas gracias por tu respuesta modifique un poco tu codigo la verdad que barbaro van cambiando los meses pero el proble es que estoy trabajando con un componente DateTimePicker de acuerdo el meses que se seleccione en ese componentes se tiene que ir sumando los meses, esto es mas nada para una cobranza de cuotas el dias es el mismo pero solo tiene que ir cambiando los meses.
lo modifique algo asi pero necesito trabajar con el DateTimePicker y el StringGrid

Código Delphi [-]
var
C: Integer;
i : Integer;
begin

for i := 1 to 5 do
begin
StringGrid1.Cells [0, i ] := intToStr(i);
end;

for C := 1 to 5 do
  begin
//StringGrid1.Cells [1, C ] := DateToStr(IncMonth(DateTimePicker1.Date,1));
  StringGrid1.Cells [1, C ] := DateToStr(EncodeDate(2022, C, 01));
end

Del TDateTimePiclket puedes extraer los valores de día, mes y año (por pasos para que quede más claro):

Código Delphi [-]
var
  m, d, a: Word;
  C:integer;
begin

  // Extraer los valores de día, mes, año..
  DecodeDate(DateTimePicker1.DateTime, a, m, d);
  // rellenar las celdas
  for C := 1 to 5 do begin
    StringGrid1.Cells [1, C ] := DateToStr(EncodeDate(a, C, d));
  end