[Drozh]

Простой код

Код:

var
 Date: TDate;
 i: Integer;
begin
 Date := StrToDate(MaskEdit1.Text);

  for i := 1 to 6 do
  begin
   Date := IncMonth(Date);
   (FindComponent(Format('Edit%d', [i])) as TEdit).Text := DateToStr(Date);
  end;
end;

Выводит:
Edit1.text:='29.12.2008';
Edit2.text:='29.01.2009';
Edit3.text:='28.02.2009'; // т.к. в феврале 2009 нет 29 числа
Edit4.text:='28.03.2009';
Edit5.text:='28.04.2009';
Edit6.text:='28.05.2009';