Alternative 2
versuche es mit dem Ereignis Userinput (parseInput = true)
Delphi-Quellcode:
procedure TForm1.DateTimePicker1UserInput(Sender: TObject;
const UserString: String; var DateAndTime: TDateTime;
var AllowChange: Boolean);
begin
if DateAndTime < Date -1 then
AllowChange:= False;
end;