procedure TForm1.Button1Click(Sender: TObject);
var
Row, Col : Integer;
Date : TDateTime;
StrDate : string;
begin
StringGrid1.FixedRows := 1;
StringGrid1.FixedCols := 1;
StringGrid1.RowCount := 10;
StringGrid1.ColCount := 10;
for Row := 1 to StringGrid1.RowCount do
StringGrid1.Rows[Row].Clear;
StrDate := '23/03/2013';
DateSeparator := '/';
ShortDateFormat := 'dd/mm/yyyy';
for Row := 1 to 6 do
begin
Date := StrToDate(StrDate);
Date := IncMonth(Date, Row);
StringGrid1.Cells[1,Row] := DateToStr(Date);
end;
end;