StringGrid Fechas

[kainchu3102]

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