На:
Код:
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
ADate : TDateTime;
begin
ADate := DateTimePicker1.Date;
If FDate <> 0 Then
Begin
DateTimePicker1.DateTime := IncYear(ADate,(MonthOf(ADate) - MonthOf(FDate)) div -11);
End;
FDate := ADate;
end;
FDate - TDateTime. Надо ее инициализировать при входе в окно текущим значением в компоненте.
Да, задачка оказалась интересной.. Пришлось немного покумекать мозгами
