Error(Date exceeds maximum ) con DateTimePicker de minDate y maxdate

[marcoszorrilla]

No sé si con este código respondo a lo que pides, ya dirás:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
var
anio:integer;
f:TDate;
begin
f:=StrToDate('30/12/1899');
anio:=strtoint(ComboBox1.text);

Edit1inicio.text:=('01/01/'+inttostr(anio));
Edit2fin.Text:=('15/01/'+inttostr(anio+1));
DateTimePicker1.minDate:=f;
DateTimePicker1.MaxDate:=f;
DateTimePicker2.minDate:=f;
DateTimePicker2.maxDate:=f;


DateTimePicker1.minDate:=strtodate(Edit1inicio.text);
DateTimePicker1.date:=strtodate(Edit1inicio.text);
DateTimePicker1.MaxDate:=strtodate(Edit2fin.text);
DateTimePicker2.minDate:=strtodate(Edit1inicio.text);
DateTimePicker1.date:=strtodate(Edit1inicio.text);
DateTimePicker2.maxDate:=strtodate(Edit2fin.text);
end;

Un Saludo.